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¡¡MENUDO CAMBIO!! 




Tráenostu 


SPECTRUM 


Apúntate a lo más 
nuevo. 


SPECTRUM PLUS 


Tenerlo, muy fácil 


Renuévate con 
INVESTRONICA. 


Ahora INVESTRONICA te da 
la oportunidad de hacerte con el 
microordenador más moderno 
del mercado: EL SPECTRUM 
PLUS. 

Sólo tendrás que entregarnos tu 
ZX SPECTRUM... 

...lo demás será visto y no visto, 
el Spectrum Plus ya es tuyo. 
Tener un ordenador Sinclair es 
la garantía de estar siempre a 
la última. 


I 
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C) 18000 pis. & es de 16 K 


El Spectrum Plus es lo más 
nuevo del mercado. Si tu 
Spectrum es estupendo; el Plus 
es fabuloso. Podrás disfrutar de 
un teclado profesional; 

17 teclas más que el Spectrum, 
es decir 17 ventajas más... y 
por supuesto lo podrás utilizar 
con todos los programas y 
periféricos que ya tienes, puesto 
que el SPECTRUM PLUS es 
totalmente compatible con todo 

el software y accesorios del 

spectrum. Además 
INVESTRONICA, al realizar el 

cambio, te da de nuevo 

6 meses de garantía, 
una nueva cassette de 
demostración y un libro de 
instrucciones a todo color. 

No te lo pienses... cámbiate a lo 
último, tienes las de ganar. 


Manda tu ZX Spectrum 
(sin cables, ni fuente de 
alimentación) a tu Servicio 
Técnico Oficial 
(HISSA) más cercano, bien 
personalmente o por agencia de 
transportes (ios gastos son por 
cuenta de INVESTRONICA) y en 
48 horas ya podrás disfrutar de 
tu nuevo Spectrum Plus. 

Sólo tienes que abonar (contra 
reembolso) 12.000 Pts, (*) 
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Dirígete a cualquiera de las delegaciones msmm 


C/ Anbau, n.° 80, Piso 5° 1 0 
Tete. (93) 323 41 65 323 44 
08036 BARCELONA 


P IJ de Ronda, n ° 82 1 u E 
Telf (958) 26 15 94 
18006 GRANADA 


C/ San Sofero, n a 3 

Telfs 754 31 97 754 32 34 

28037 MADRID 


C/. Avda. de la Libertad, n ü 6 
bloque 1 0 Entl izq D 
Telf (968) 23 18 34 
30QÜ9 MURCIA 


C/ 19 de Julio, n 13 10 - 2° local 3 
Telf (985) 21 88 95 
33002 OVIEDO 


C/ Hermanos deí Río 
Rodríguez, n. ü 7 bis 
Tel: (954) 36 1 7 08 
41009 SEVILLA 


C/ Universidad n. ü 4 2 ° 1 ü 
Telf (96) 352 48 82 
46002 VALENCIA 


C/ Travesía de Vigo, n.° 32, 1° 
Telf (986) 37 78 87 
6 VÍGO 


Avda de Gosíeiz, n* 19 A ID 

Tft1f.(945) 22 52 05 

01008 VITORIA 


0/ Afores, n.M 5 * * * * * & D 
Tell (976) 22 47 09 
50003 ZARAGOZA 


* 
































TNVESDÍSK 200, Unidades de discos para Spectruin 
made in Portugal, 

JUEGOS, SKQOL DAZE y KNIGHT LGRE. Dos _ _ 

buenos programas que no deben Faltar en cualquier EF|| 
colección, 


DOS PROGRAM AS EN BASIC, Un pequeño truco 
con el que «saltar» de un programa otro, ambos 
residentes en memoria, 

PROTECCION DE SOFTWARE, Las té 
modernas. 

CONOZCA EXTREMADURA, CONSULTE A SU 
ORDENADOR, Los profesores de EGB también 
utilizan Spectrum, 
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18 


DESENSAMBLADOR DEL Z-80. Para trabajar en 
código máquina. 


20 


Entrevistamos a Damiá García, gerente de Idealogic* 

QL-MAGAZ1NE, Novedades Informal, Hoja de 
cálculo ABACUS, Ajedrez de Psion. 


31 


CONSTRUYA SU JOYSTICK. Sencillo montee 
para dominar cualquier juego. 


40 


DESCUBRIMIENTO DE UN NUEVO 
LENGUAJE: PASCAL. Ultimo capítulo de esta 
serie. 


PROGRAMAS: Ediset y Laberinto, 




50 


GUSANEZ. 


SOFTWARE EDUCATIVO. ¡QUE DIVERTIDO! 


EL CORCHO. 


64 
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renda que nos queráis plantea nL-sección. 

nen Xab de Ajedm ' 

Enfrentamos al Qh con , e [™“ 

Hasta el próximo numero. — 
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Nacido en Portugal e 
importado de Inglaterra, 
el Invesdisk 200 se 
presenta ahora en España 
como una unidad de 
discos seria para 
Spectrum , distribuida y 
avalada por Inves trónica. 
Sin embargo, las 
diferencias con los 
restantes sistemas de 
almacenamiento no 
parecen ser tan decisivas. 















































































La unidad de diskette de Timex, 
comercializada en España por Iu- 
vestrónica bajo el nombre de In- 
vesdisk, ha sido uno de los últimos 
periféricos en llegar al mercado, y 
es el primer disco que utiliza el 
formato de tres pulgadas (no con¬ 
fundir con los diskettes de 3" 1/2 
de Sony), empleado por el Einstein 
y el Oric. 

Este tipo de floppys permite su 
utilización por las dos caras, con lo 
que cada disco admite hasta 320 
K. De las 160 K de cada cara, 16 K 
contienen el sistema operativo y 4 
el directorio, por lo que restan 140 
K libres para el usuario. La unidad 
incluye dos conexiones RS232C 
para comunicaciones o control de 
impresora, y un operativo con una 
gestión de archivos muy versátil y 
que utiliza sólo dos bytes (de una 
variable del sistema no usada) de la 
RAM del Spectrum. 

Una caja incluye el controlador, 
con un interface para Spectrum. El 
modelo «manda» hasta cuatro uni¬ 
dades de diskette. e incluye los dos 
ports RS232C en su parte trasera. 

En un módulo aparte se presenta 
la unidad de diskettes, y una terce¬ 
ra caja incluye la fuente de alimen¬ 
tación, que resulta suficiente para 
dos unidades de disco y el contro- 


Sistema de directorios: 

Una complicación innecesaria 

El sistema operativo, llamado 
TOS ( Timex Operaüng System), 
atrae a primera vista: El sistema de 
ficheros tiene estructura de árbol, 
con los dos puertos RS232 y los di¬ 
rectorios de cada disco «crecien¬ 
do» de la raíz, de ios que a su vez 
salen nuevas ramas (subdirecto¬ 
rios) y hojas (programas). El siste¬ 
ma conoce nuestra posición dentro 
del árbol en cada instante, y cual¬ 
quier nombre de fichero se buscará 
solo en la «rama» en que nos en¬ 
contremos. Si queremos especifi¬ 
car un fichero que se encuentra en 
otro subdírectorio, debemos indi¬ 
car el «camino» que lleva hacia él. 
Existen también comandos que 
permiten subir y bajar por el árbol 
de directorios. 

Un sistema operativo con subdi¬ 
rectorios es ideal para el manejo de 
disco duro donde el espacio dispo¬ 
nible hace que se multiplique el 
número de ficheros, resultando di¬ 
fícil identificar en el catálogo los 
archivos que nos interesan. El uso 
de directorios independientes para 
distintos usuarios o aplicaciones 
permite una mayor claridad en la 
gestión del disco. No parece intere- 


lador. Si se quiere utilizar con tres 
o cuatro unidades, será necesaria 
una segunda fuente de alimenta¬ 
ción. 

El controlador trabaja en parale¬ 
lo al Spectrum, con un procesador 
Z80A, memoria y dispositivos de 
entrada/salida propios. El Spec¬ 
trum se limita a pasar los coman¬ 
dos al controlador, recibiendo el 
resultado. Viene dotado de un bo¬ 
tón de RESET, que permite i meta¬ 
lizar el sistema de disco sin afectar 
al Spectrum. Asimismo, el ínter fa¬ 
ce de conexión con el Spectrum 
viene dotado de otro botón de RE¬ 
SET, que pone el Spectrum «a 
cero». Este proceso vuelve a cargar 
el sistema operativo del disco, 
siendo equivalente a apagar y en¬ 
cender el ordenador. 



y VOAIPB ME7E5 

-1 EL PISCO ?/-j 


iPISO rERURCI 






















de disco 



sante su uso en un ordenador 
como el Spectrum, con diskettes 
de 140 K. En las pruebas realiza¬ 
das hemos podido constatar que 
con este sistema el usuario poco 
experimentado «pierde» los archi¬ 
vos. ya que no se «atina» con un 
programa determinado en el «bos¬ 
que» de directorios. 

Una característica más intere¬ 
sante es la posibilidad de usar ca¬ 
racteres como «comodín» en algu¬ 
nos de los comandos, al referirnos 
a un nombre de archivo. La pre¬ 
sencia de un interrogante «?» en el 
nombre hace que el programa in¬ 
cluya cualquier archivo que Unga 
en la posición del interrogante un 
carácter arbitrario: CA? selecciona 
cualquier fichero de tres caracteres 
que comience por CA. Si usamos 
el signo más «+», el programa lo 
reemplazará por cualquier cadena 
de caracteres: el nombre «+» es 
cualquier archivo que no tenga ex¬ 
tensión. «+.BAS» sejecciona todos 
los ficheros con extensión BAS. 
Muy útil para borrar todo aquello 
que hayamos caracterizado como 
fichero tipo BASIC en el directorio 
en vigor. 

Los comandos son palabras cla¬ 
ve del Spectrum seguidas por un 
asterisco y sus parámetros, y el sis¬ 
tema de paginación es muy pareci¬ 
do al del Interface /, por lo que 


ambos sistemas son incompatibles. 
Existen instrucciones para la car¬ 
ga, almacenamiento y cambio de 
nombre de archivos, tanto progra¬ 
mas, como código máquina o da¬ 
tos. El comando MOVÉ * permite 
la copia de archivos o grupos de 
archivos. El comando ATTR per¬ 
mite la protección de archivos o su 
ocultación en los directorios. D1M 
da la posibilidad de crear un archi¬ 
vo o directorio nuevo (vacíos). 


Canales y Archivos de datos. 
Acceso directo 

E! sistema operativo TOS pro¬ 
porciona 16 canales de acceso a 
datos, diferentes de los canales del 
Spectrum. Los cuatro primeros ca¬ 
nales tienen un tratamiento distin¬ 
to, con un Buffer de 512 bytes para 
cada uno, y el sistema los distingue 
como canales «rápidos». Los res¬ 
tantes comparten otros 512 carac¬ 
teres y, si se abren varios canales 


ARCHIVOS _i- 

[ nf ACCESO MIA IORIQ 


La principal ventaja que ofrecen los sistemas de 
disco sobre otras alternativas de almacenamiento 
consiste en que el acceso aleatorio es real, y no se si¬ 
mula mediante software. Presentamos un ejemplo: 
cómo se puede usar el acceso aleatorio para crear un 
pequeño archivo de direcciones y consultarlo. Para 
ello, lo primero será crear el archivo, si no existía: 

DIM * “direc.dat” 

creará un fichero, dando un error si ya existía. 

V ayamos al programa propiamente dicho: 

100 OPEN *1; “direc.dat”; r;l00 

abre el archivo al canal 1, con acceso aleatorio. 
Cada registro tiene 100 caracteres. 

110 INPUT “1-Consultar, 2-Añadir, 3-Fin”; h$ 


120 1F h$=“2” THEN GOTO 500 
130 IF h$=“3” THEN GOTO 600 
J 40 IF h$ < > “1 ” THEN GOTO 110 

Hasta quí hemos comprobado las opciones y he¬ 
mos enviado el programa al punto adecuado. Vea¬ 
mos a continuación cómo se consulta el archivo: 

150 INPUT “Registro?”;n 

160 IF n>65535 OR n<l THEN GOTO 150 

ya que el número máximo registros es de 65535, 
comenzando a numerar por uno. 

170 INPUT* 1 ;a$;AT n 

Esta instrucción lee el registro número n del ar¬ 
chivo, y lo introduce en la variable aS. 

180 CLS 

190 PRINT AT 4,3;“Nombre: ”;a$ (TO 30) 




















«lentos», los tiempos de acceso se¬ 
rán más altos. 

Cada uno de estos nuevos cana¬ 
les se puede abrir a un archivo, de 
tipo secuencia! o de acceso directo, 
o bien a uno de tos ports RS232. 
Para los archivos de acceso directo 
deberemos especificar la longitud 
de registro (máximo 256 caracte¬ 
res). El almacenamiento mediante 
archivos de acceso aleatorio abre 
la puerta a aplicaciones rápidas 


con manejo de gran cantidad de 
datos, ya que los tiempos de acceso 
son realmente buenos. 

Comunicaciones serie 

Dos conexiones RS232 permi¬ 
ten la conexión con otros ordena¬ 
dores, impresoras serie, o cual¬ 
quier otro dispositivo de entrada/ 
salida RS232. El sistema operati¬ 
vo permite la configuración de los 
dos puertos independientemente y 


con una gran flexibilidad. Los co- 
nectores utilizados son tipo joy- 
stick, no estándar, aunque no apa¬ 
recen grandes problemas de ca¬ 
bleado. 

El manual es. junto con el pre¬ 
cio, uno de los puntos más débiles 
de la unidad de Investrónica. Un 
manual en inglés, donde se pueden 
encontrar todas las características 
del programa, aunque haya que 
perder un tiempo excesivo en la 
búsqueda. Un apéndice explica la 
implementación de rutinas en có¬ 
digo máquina que saquen partido 
del disco, pero no existe ninguna 
referencia al uso de vectores para 
la ampliación del BASIC, presen¬ 
tes en el Wafadrive y el Microdri- 
ve. 

Las unidades de 640 K, anuncia¬ 
das por Timex, parecen haber de¬ 
saparecido en el negro túnel del 
marketing. Una lástima, ya que 
darían mucho más juego a esta 
unidad. Para finalizar, conviene 
no olvidar otro problema que sur¬ 
ge con las unidades de disco para 
Spectrum (no sólo la de Investró¬ 
nica): la escasez de software co¬ 
mercial desarrollado para ellas. En 
general, no queda más remedio 
que escribir nuestros propios pro¬ 
gramas o adaptar alguno realizado 
para microdrive. Y ese es otro as¬ 
pecto que pesa en la balanza. 


200 PRINT AT 8,0;“Dirección: ”;a$(31 TO 60) 

210 PRINT AT 12,5;“Tfno: ”;a$(61 TO 75) 

220 PRINT AT 16,4;“Notas: **; a$(76 TO ) 

230INPUT “Enter para seguir”; LINE h$ 

Estas líneas leen un registro. Por convenio, he¬ 
mos decidido que los primeros 30 caracteres almace¬ 
narán el nombre, después otros 30 caracteres alma¬ 
cenarán la dirección, quince caracteres los dejamos 
para el número de teléfono y los veinticinco últimos 
para notas de interés. 

240 GOTO 110 

La sección siguiente del programa se encarga de 
la introducción de las fichas. Primero se nos pregun¬ 
ta en qué registro queremos introducir la ficha. Hay 
que tener cuidado, ya que el programa no mirará si 
ese registro contenía algún dato de valor. A conti¬ 
nuación el programa dimensiona cuatro cadenas de 


caracteres, que contendrán los datos de nuestra fi¬ 
cha. Para finalizar, se introducen los datos desde el 
teclado mediante instrucciones INPUT y se impri¬ 
me el registro resultante al archivo. 

500 INPUT “Registro Numero?”;n 

510 IFn >65535 OR n< 1 THEN GOTO 500 

520 CLS 

530 DlWl n$(30): DIM b$(3Ó): DIM p${l5): DIM 
c$(25) 

540 INPUT “Nombre? ”;n$ 

550 INPUT “Dirección? ”;b$ 

560 INPUT “Tino? ”;p$ 

570 INPUT “Notas? ”;c$ 

580 PRINT * 1; n$+b$+p$+c$;AT n 
590 GOTO 110 

600 CLOSE *1: PRINT “Terminado” 

La línea 600 cierra el archivo, permitiéndonos así 
conservar nuestras fichas sin problemas. 











un idades 

de disco 


Resumimos a continuación los comandos del sistema 
operativo del Invesdisk. Donde se especifica camino se 
entiende una referencia cualquiera a un archivo (puede ser 
necesario indicar en qué directorio está situado, tos 
parámetros entre corchetes son optativos). 
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¡¡YA ESTA AQUI EL LOGO 
SINCLAIR EN CASTELLANO 
PARA TU SPECTRUM 48 K 

Y PLUS!! 


Logo es un buen lenguaje para los niños porque es un buen 

lenguaje para todo el mundo: (niños desde los 4 a los 90 años) 

- un lenguaje sin límites: accesible al joven principiante, y al 
mismo tiempo potente como para estimulara un programador 
experimentado. 

- un lenguaje simple de abordar: te comunicas con el ordenador 
en castellano.. (por fin un lenguaje de programación en 
castellano). 

Logo es un buen lenguaje gráfico porque es más que un 

lenguaje gráfico: 

- un lenguaje que ofrece la posibi lidad de manipular listas, pala¬ 
bras. operaciones aritméticas, contribuye a un grafismo 
elaborado. 

- un lenguaje que permite iniciarse en la programación a través del grafismo en el que los resultados son concre¬ 
tos y visibles. 

Logo es un buen lenguaje porque es un lenguaje potente: 

- un lenguaje interactivo: las instrucciones son ejecutadas inmediatamente y los mensajes de ayuda son 
claros y precisos. 

- un lenguaje que permite describí rías acciones a ejecutar de forma estructurada, creando nuevos procedimien¬ 
tos a partir de las instrucciones iniciales (primitivas). 

Usar Logo es aprender: 

- numerosas experiencias pedagógicas lo han demostrado: Logo es una herramienta de expresión que incita a 
reflexionar sobre la propia metodología. 

- un lenguaje que permite que cada cual domine el ordenadoren función de sus necesidades: programas de apli¬ 
cación. educativos, de juegos... 





Y ADEMAS... 

LE DAMOS AYUDA Al. LOGOADICTO CON: EL LOGOSPECTRUM CLUB, que te permitirá realizar todo 
tipo de consultas. Con sólo enviar el cupón que acompaña al programa, recibirás a vuelta 
de correo tu clave de usuario. Este servicio es gratuito. 


EDICION LIMITADA DE LANZAMIENTO 

Hemos preparado una edición limitada y a la mitad 
de precio que este programa tiene en Inglaterra. 


¡¡HAZTE AMIGO DEL LOGO!! 1 
por sólo 3.990 pts. 


FABRICACION. ASISTENCIA TECNICA Y CONSULTAS COMERCIALIZACION 
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Hay casas de software que van ha¬ 
ciendo historia por la calidad de sus 
juegos y la consecuente expectación 
que genera la aparición de los nuevos 
productos. Tal es el caso de la casa in¬ 
glesa Ultímate, donde el «premio» por 
llegar al linal de sus juegos es precisa¬ 
mente el poder conocer el nombre del 
próximo juego que lanzarán al merca¬ 
do. 

Knight Lore, como todo lo de Ulti- 
mate, sigue la línea del laberinto, de la 
sucesión de cuidadas pantallas en bús¬ 
queda de los distintos materiales que 
ayudan a llegar al final. En este caso 
Sabreman —protagonista usual de los 
juegos de Ultímate— se encuentra con 
el problema de convertirse en hombre- 
lobo en los dias de luna llena. Para re¬ 
solver su problema ha de recoger di¬ 
versos ingredientes —esparcidos por 
un tétrico castillo— y llegar con ellos a 
donde se encuentra un mago que cono¬ 
ce la combinación que le liberará de su 
castigo. 

Aunque pueda parecer sencillo, el 
problema es en realidad una lucha 
contra reloj en dos sentidos; sólo se 
dispone de 40 dias y 40 noches para 
poder «deshacerse» del problema; y 
cada vez que tiene lugar la transforma¬ 
ción (de una vistosidad realmente in¬ 
mejorable). nuestro héroe queda inha¬ 
bilitado para defenderse de cualquier 
ataque, pudiendo perder alguna de las 
cinco vidas que dispone a! iniciar el 
juego. 

Los objetos transportados aparecen 


„ Es media noche i 1 la 
transformación ha 
tenido lugar: el 
hombre-lobo busca la 
solución a su 
"tormento». 


Control: Teclado, joystick. 

.hígadores: Uno. 

Gráficos: Lo mejor, como vie¬ 
ne siendo habitual en Ultímate. 

Nivel de dificultad: No exis¬ 
ten. 

Originalidad: Máxima origi¬ 
nalidad y perfecta transforma¬ 
ción en hombre - lobo - hombre. 

Conclusión: Adictivo para to¬ 
dos aquellos que disfruten con 
este tipo de juegos-laberinto, en 
los que pasar a otra habitación 
es pasara una situación,comple¬ 
ta mente diferente. 


en la parte inferior de la pantalla pu¬ 
diéndose coger y soltar cualquiera a 
voluntad y llevando un máximo de 
tres, lo que nos recuerda al ya clásico 
Saimazon. Asimismo, la parte inferior 
de la pantalla informa también del nú¬ 
mero de oías transcurridos y la trayec¬ 
toria del sol o la luna, imprescindible 
para estar preparado ante la «transfor¬ 
mación». 

La clave del juego consiste en cono¬ 
cer la secuencia en que se han de arro¬ 
jar los catorce objetos a la pócima del 
mago, a fin de librarse del hechizo. 
Aunque pueda parecer aleatorio, afor¬ 
tunadamente no es este el caso y con la 
adicción que genera el juego se puede 
llegara conocer. 


KMGHTLORE 


Erfae 

Spectrum 48 K 
Precio: 2.000 Pías. 


Sobreman ha de 
recorrer el laberinto, 
En ocasiones 
desplazando bloques 
para saltar sobre ellos. 



































SKOOLDAZE 


Serma 

Spectrum 48 K 
2.500 ptas. 


«¡Atrévete a lodo!». «¡Juega con tus 
profesores!», son, entre otros, los titu¬ 
lares agresivos con que la publicidad 
nos enseña lo más novedoso en juegos 
para Spectrum. 

Y ciertamente se trata de un juego 
donde su mayor atractivo reside en su 
originalidad, A diferencia de Knight 
Lore y la serie de juegos basados en 
múltiples pantallas, aquí se limita todo 
a tres pantallas. Lo importante no es 
andar por recónditos caminos, sino ír 
al colegio con el aliciente de hacer todo 
lo que se le ocurra a su imaginación: 
pegarse con los compañeros o los pro¬ 
fesores, abandonar las clases, meterse 
en el despacho del director y, por su¬ 
puesto, abrir la caja fuerte donde están 
las notas,„ ¡Ya se puede imaginar con 

É|r Control: Teclado, joystick. 

Jugadores: Uno, 

Gráficos: Muy buenos, tanto 
I por la caracterización de los dis- 
I tintos personajes, como por el 
I movimiento de todos ellos en 
I pantalla. El desplazamiento ho- 
I rizontal pixel a pixel está bien 
I logrado. 

I Niveles de dificultad: No exis- 

Originalidad; Este juego rom- 
I pe con los clásicos oe «innume- 
I rabies» pantallas. Pocas panta- 
I lias, mucha acción y muchos 
I golpes para los profesores, 

Conclusión: A pesar de los 
I problemas del idioma inglés, es 
I un juego tremendamente adíeli- 
I vo, Lógicamente la técnica de 
I mensajes en pantalla simulando 
Blos cómics, no resulta de fácil 
Btraducdón, afortunadamente 
Hcompletado con buenas instruc- 
Bciones un buen manual de ins- 
Btrucciones. 


qué motivo! Este es precisamente el 
objetivo de! juego, pero no es tan fácil 
como traspasar la puerta- Ames hay 
que golpear con el tirachinas a los es¬ 
cudos del colegio, lo cual sólo es posi¬ 
ble de «rebote» una vez golpeado 3 los 
profesores. 

Toda la aventura transcurre en lo 
que pudiéramos calificar como «un día 
normal de escuela», donde Eric, que es 
el protagonista del juego, ha de asistir a 
varias clases. 

La pantalla del televisor se convierte 
en un colegio Heno de bullicio y movi¬ 
miento por doquier (cuando se ve por 
primera vez siempre surge la pregunta; 
¿cómo han logrado tener Lodo esto en 
movimiento?) 

Al margen dd movimiento, existe 
una característica que le hace especial¬ 


mente novedoso, cual es la conversa¬ 
ción profesor-alumnos al estilo de los 
cómics, incluido el chivato que no 
duda en advertir al profesor de la au¬ 
sencia de Erie. 

La limitación de tiempo viene im¬ 
puesta por los castigos de los «profes» 
empeñados en hacer copiar numerosas 
líneas sobre lo que no se debe hacer. 
Cuando el número de líneas rebasa la 
cifra de 100, el director decide «dar va¬ 
caciones» a Eric y no le permite volver 
al colegio hasta que las haya copiado 
todas. Aunque también puede ser ex¬ 
pulsado prematuramente por coger las 
paperas. 

Un juego original y recomendable «pa¬ 
ra todos los públicos» y poderse final¬ 
mente ensañar con los profesores y con 
los diabólicos compañeros de escuela. 




Es «ptaytime*, en 
decir, recreo En la 
pizarra se puede íeer 
tifas cenas de la 
escuela san horribles» 





Erk ha sido cogido 
fuera de la ciase en 
que debía estar El 
castigo es escribir 600 
Eneas. 



































































E sta corta subrutina en código 
máquina nos permitirá acce¬ 
der a dos programas BASIC 
simultáneamente, siempre 
que cada uno de ellos no su¬ 
pere las 20 K. 

El método es sencillo: se crea, si 
no se había hecho antes o si hemos 
hecho un NEW (VARS2=0). un se¬ 
gundo programa vacío en la parte 
alta de la memoria (EFRIA). y sus 


respectivos PROG, VARS y EL1- 
NE se almacenan como PROG2, 
VARS2 y ELIN2. Cada vez que 
cambiemos de programa se inter¬ 
cambiarán entre sí estas variables 
(CAMBIO). Al final (SALIDA) se 
hace un listado automático (CALL 
AUTO-LIST) y tras poner a cero 
el registro A se retoma (JP 
MAING-G) con mensaje O OK. 
Entrando por 65008 (BORRAR) 
borraremos el programa en que es¬ 


temos con sus variables, poniendo 
a sus mínimos valores VARS y 
ELINE. 

Quien no tenga ensamblador de¬ 
berá teclear el programa cargador, 
que avisará, si es incorrecta la 
suma de control, con el mensaje 
«ERROR EN DATA»; en cuyo 
caso deberemos revisar los datos y 
ejecutarlo de nuevo. 

Antes de utilizar la subrutina 


































MAS BASIC 
VRJLTAIMEOS 


conviene grabar el programa en 
cinta o microdrive. para salvarlo 
en forma de bytes haremos: SAVE 
«nombre»CODE 65000. 80 y para 
cargarlo posteriormente: CLEAR 
64999: LOAD «nombre»CODE. 

Seguidamente podremos borrar 
el programa cargador con RAN- 
DOMIZE USR 65008 o con NEW 
e introducir el primer programa 
BASIC de la forma habitual. 
Cuando hayamos acabado debere¬ 


mos hacer: RANDOMIZE USR 
65000 y estaremos en condiciones 
de introducir el segundo progra¬ 
ma, repitiéndolo volveremos al 
primero, y así sucesivamente. Si 
queremos borrar uno de los dos 
programas manteniendo el otro, 
podemos usar RANDOMIZE 
USR 65008. Si hacemos NEW se 
borrarán los dos programas, pero 
no así el código máquina, que po¬ 
drá ser utilizado normalmente. 


Cada programa conserva sus 
propias variables, pero no la pila 
de GO SUB, que se borra en cada 
cambio. 

Quien tenga el interface 1 debe 
tener cuidado de no hacer opera¬ 
ciones con el microdrive desde el 
segundo programa, pues desplaza¬ 
ría al primero y al volver a éste, 
podría “colgar” el sistema. 

Luis Gala 
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40 

60 

60 
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90 

a .00 
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í¿0 

E USR 
AMA . 
140 
150 
160 
170 
180 
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200 
210 
220 
230 
240 
250 
260 


REM CARGADOR 
REM 

REM DOS PROG, SIMULTANEOS 
REM 

CLEfiR 64999 
LET 0*0 
FOR N*0 TO 79 
RERD R 
LET C-C+fl 
PGKE 65000+N.R 
NEXT N 

IF c < >9447 TMEN PRINT FLASH 
ERROR EN DATA ": STOP 
PRINT 'CARGA QK"'" RANDQMIZ 
65000 PARA CAMBIO DE PROGR 
65003 PARA BORRAR." 

DATA 205 i 9,254,205,149 ,23 
DATA 175,195,19,19,805,9 
DATA 254,205.0,264,24,241 
DATA 33,200,175,34,66,254 
DATA 34,176,92,54,128,35 
DATA 34,58,254,237,75,176 
DATA 92,4,5,40,233,42,75 
DATA 92,34,176,98,237,67 
DATA 75,92,237,75,58,254 
DATA 42,89,92,34,58,254 
DATA 237,67,69,98,837,75 
DATA 56,254,48,83,98,34,66 
DATA 254,237,67,33,92,201 
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ENTR 

88ll SSRÜo 

30 

SALIDA 

CALL 

#1795 

40 


XOR 

A 

50 


JP 

#1313 

60 

BORRAR 

CALL 

CAMBIO 

70 


CALL 

BORR 

80 


JR 

SALIDA 

90 

EFRIA 

LD 

HL,#AFC8 
ÍPR0G2),HL 

100 


LD 

110 

BORR 

LD 

(UARS81,HL 
(HL),#60 

120 


LD 

130 


INC 

HL 

140 


LD 

(ELIN8) ,HL 

150 

CAMBIO 

LO 

BC, (UARS2) 

160 


INC 

B 

170 


DEC 

B 

160 


JR 

Z,EFRIA 

120 


LO 

HL, tUARS) 
ÍURRS2), HL 
(UARS),BC 

200 


LD 

210 


LO 

220 


LO 

BC, (ELIN23 

230 


LO 

HL, (ELINE) 

240 


LO 

(ELIN2),HL 

250 


LO 

(ELINE),BC 

260 


LO 

BC, (PR0G2) 

270 


LO 

HL, (PROG) 

280 


LD 

(PRQG2),HL 

290 

300 


LO 

RET 

(PROG3,BC 

310 

PR0G2 

0EF5 

2 

320 

ELIN2 

DEFS 
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UARS2 

EQU 

#5CB0 

340 

PROG 

EQU 

#5053 

350 

ELINE 

EQU 

#5C59 

360 

0RR5 

EQU 

#SC4B 

















PROTECCION 


A medida que aumenta el nú¬ 
mero de usuarios del ya 
enomemente popular Spec- 
trum. la piratería se con¬ 
vierte cada vez más en un 
problema acuciante para las jóve¬ 
nes casas de software. Los usuarios 
alcanzan un grado de conocimien¬ 
to de sus máquinas tal que no su¬ 
pone problema alguno para ellos 
«destripare el más protegido de los 
programas. Los programadores 
profesionales se ven obligados a 
forzar su imaginación al máximo 


incluso al campo de la protección 
contra algunos de estos sistemas. 
Al menos se han desarrollado al¬ 
gunas ideas que impiden (nunca 
con una fiabilidad absoluta) la co¬ 
pia de cintas con dos aparatos cuyo 
nivel de grabación esté regulado 
con ALC (Automatic Levei Con¬ 
trol o control automático de nivel), 
sistema usado por la práctica tota¬ 
lidad de los cassetes portátiles. Y 
es ésta una de las formas mediante 
las cuales los usuarios realizan la 
mayor parte de las copias piratas. 




para desarrollar sistemas que impi¬ 
dan la copia de su preciado softwa¬ 
re. Y aunque, como todos sabe¬ 
mos. no exista programa soportado 
en cinta de cassete que no sea vul¬ 
nerable a la copia, las técnicas em¬ 
pleadas comienzan a extenderse 


Contra los que se dedican a este su¬ 
cio negocio de una forma profesio¬ 
nal. nada se puede hacer. La única 
forma de reducir esta piratería es 
simplemente abandonando la cin¬ 
ta como soporte de software. 

De las últimas técnicas desarro¬ 


lladas por las casas de software es 
de lo que se va a hablar aquí, y 
para ello nos basaremos en uno de 
los juegos más populares de los 
editados recientemente para el 
Spectrum: el DECATHLON, de la 
compañía inglesa UCEAN. Pre¬ 
viamente daremos un breve repaso 
a los sistemas de protección más 
usuales, de los cuales se ha escrito 
bastante (ver TODOSPECTRUM 
número 1). 

Entre los sistemas de protección 
empleados podemos separar gran¬ 
des grupos según la finalidad de la 
técnica usada. Por una parte se 
suelen proteger los programas con¬ 
tra la posibilidad de transformar o 
usar rutinas contenidas en el soft¬ 
ware. Por otra, la protección es 
contra la copia mediante los cono¬ 
cidos programas copiadores, de los 
que existe ya una gran variedad en 
el mercado. El primer conjunto 
realiza también en parte la función 
de evitar la copia directa por análi¬ 
sis de las instrucciones o rutinas de 
carga que posee el programa. Esto 
se consigue en primer lugar ha¬ 
ciendo imparable el programa. 
Todos sabemos lo que suele ocu¬ 
rrir si intentamos hacer un 
«Break» durante la carga o ejecu¬ 
ción de la mayoría de los progra¬ 
mas comerciales. Para ello, se ha 
de alterar o anular la función de la 
teda «Break». Son varios los méto¬ 
dos empleados, entre los que cabe 
destacar la alteración de las varia¬ 
bles del sistema «ERROR SP» o 
«DEF SZ». La primera es un pun¬ 
tero de dirección que indica la po¬ 
sición de memoria donde se halla 
la dirección de la rutina que ha de 
emplear el sistema operativo en 
caso de que se produzca un error. 
Si cambiamos este valor podemos 
hacer que el ordenador se bloquee 
al producirse una interrupción, ya 
que intentará ejecutar una rutina 
que no es tal. La segunda variable 



































































































SOFTWARE 


indica al sistema la cantidad de lí¬ 
neas que puede usar en la parte 
baja de la pantalla para mensajes y 
entrada de datos. Si se hace cero, 
cuando el ordenador intente dar el 
mensaje de «BREAR IN UNE xx» 
no podrá hacerlo y se bloqueará. 
Sin embargo, no es un secreto que 
es posible parar la autoejecución 
de un programa cargando io con la 
función MERGE en lugar de con 
LOAD. MERGE fusiona dos pro¬ 
gramas en BASIC alterando si es 
necesario la numeración de las lí¬ 
neas, motivo por el cual, anula la 
autoejecución. El remedio contra 
este truco consiste en alterar los 
números de línea sustituyéndolos 
por otros «imposibles» para el or¬ 
denador, como el cero, etc. De esta 
forma se consigue además que la 
linea no se pueda editar por me¬ 
dios normales. Cuando el ordena¬ 
dor intente renumerar el progra¬ 
ma, se encontrará con números in¬ 
comprensibles y se bloqueará. 
Todo esto, por desgracia, tiene un 
antidoto bastante sencillo para el 
programador de código máquina. 
La autoejecución de un programa 
viene definida por dos bytes de la 
cabecera que indican la línea de 
comienzo del programa. Si este 
número es mayor de 32768 no 
ocurre autoejecución. Basta, por 
tanto, con crear una cabecera igual 
a la del programa pero sin autoeje¬ 
cución. llamando directamente a 
las rutinas de carga y grabación de 
bloques de la ROM. Dado que es 
posible, como se ve, parar la ejecu¬ 
ción del programa a pesar de todo, 
es necesario proteger el propio 
programa contra su alteración o 
visualización en pantalla. Una for¬ 
ma bastante sencilla es usando los 
códigos de color dentro de las lí¬ 
neas de programa, tal y como se 
explica en el manual del Spec- 
trum. Se pueden poner tinta y pa¬ 
pel del mismo color, de forma que 
no aparezca nada al listar el pro¬ 


grama. Para evitar La edición y su¬ 
presión de estos códigos en la línea 
se emplea de nuevo el truco de la 
linea cero. «Pokeando» ceros en 
los bytes correspondientes al nú¬ 
mero de línea en cada sentencia, se 
conseguirá hacer las líneas inedita¬ 
bles, Basta con deshacer el entuer¬ 
to para obtener un programa nor¬ 
mal. En última instancia se intenta 
proteger la parte en código máqui¬ 
na que llevan la mayoría de los 
programas. Para ello los bloques 
correspondientes se suelen cargar 
mediante rutinas en máquina ex¬ 
trañas para los profanos, y a las 
cuales se accede no con un vulgar 
RAND USR, sino mediante alte¬ 
ración de las variables del sistema 
(ERROR SP). De esta forma es di¬ 
fícil conocer dónde comienza la 
dirección de ejecución del código, 
y por tanto se evita su desensam¬ 
blado. 

Respecto a la protección contra 
los conocidos copiadores, hay que 
reconocer que muchas casas de 
software han ido siempre, por de¬ 
lante de éstos en técnicas de pro¬ 
tección. Cuando el único copiador 
conocido en el mercado era el fa¬ 
moso THE REY. muchos progra¬ 
mas estaban ya grabados con blo¬ 
ques sin cabecera, imposibles de 
leer por el copiador. Aparecieran 
programas que copiaban estos blo¬ 
ques, pero para entonces el softwa¬ 
re venía protegido con falsas cabe¬ 
ceras que engañaban astutamente 
al copiador. Recientemente han 
aparecido en el mercado varios 
programas que parece ser han con¬ 
seguido desterrar del «reino» del 
Spectrum a los más potentes co¬ 
piadores. Son los llamados progra¬ 
mas «turbo», grabados a distinta 
velocidad del estándar prefijado 
por las rutinas de la ROM. El cam¬ 
bio de velocidad se consigue alte¬ 
rando ciertas constantes conteni¬ 
das en las rutinas de carga y graba¬ 
ción. Aparentemente se puede ha- 


Las casas de software van 
por delante de las técnicas 
utilizadas en los programas 
copiadores. Cuando apareció 
el famoso «the key», machos 
programas estaban ya 
grabados con bloques sin 
cabecera. 














cer un copiador de velocidad va¬ 
riable de esta forma, pero es prácti¬ 
camente imposible acertar la velo¬ 
cidad a la que está grabado un pro¬ 
grama. Técnicamente es posible 
escribir una rutina que la mida, 
pero es bastante complejo. Proba¬ 
blemente ya haya gente trabajando 
en ello. 

De las últimas técnicas de pro¬ 
tección es un claro y brillante ex¬ 
ponente el conocido DECATH- 
LON de OCEAN. Los programa- 
dores de esta casa han conseguido 
un sistema realmente efectivo, 
aunque como veremos no es total¬ 
mente invulnerable. Los sistemas 
empleados son novedosos tanto en 


el campo de la protección del BA¬ 
SIC y del código máquina como en 
el de la copia con programas co¬ 
piadores y directamente de cinta a 
cinta. 

Analizando en profundidad este 
programa, nos encontramos con 
que consta únicamente de 3 blo¬ 
ques. El primero es un bloque BA¬ 
SIC, seguido inmediatamente de 
dos bloques sin cabecera grabados 
ya a distinta velocidad. Este hecho 
no llamaría la atención si no fuese 
porque al parar el programa y ob¬ 
servar el BASIC nos encontramos 
con que no existe ninguna línea 


REM que contenga rutinas en má¬ 
quina. Evidentemente, éstas han 
de existir para cargar bloques a dis¬ 
tinta velocidad. Pero no están me¬ 
tidas como es corriente en una lí¬ 
nea de programa, sino que se en¬ 
cuentran ubicadas en la zona de 
variables, único lugar remanente 
protegido de las inclemencias del 
sistema operativo. El programa en 
BASIC tiene todas sus líneas nu¬ 
meradas con cero y con códigos de 
color que las hacen invisibles en 
los listados. El MERGE, por tanto, 
es inútil, siendo necesario alterar 
la cabecera para cargar sin autoeje- 
cución. Esto ha de hacerse llaman¬ 
do a la rutina de carga de bloques 


para cargar la cabecera, alterando 
ios dos bytes de ejecución, y gra¬ 
bándola de nuevo con otra llama¬ 
da a la ROM. Para conseguir vi¬ 
sualizar el programa es necesario 
anular los códigos de color me¬ 
diante un monitor en máquina 
ubicado en una zona alta de la me¬ 
moria, ya que es difícil hacerlo 
desde BASIC sin trastocar la zona 
de variables, y por tanto el código 
que contiene. Los números de lí¬ 
nea se pueden cambiar de igual 
modo. Con el programa al descu¬ 
bierto, nos encontramos con una 
maraña de PEEK y POKE que ha¬ 


cen ciertamente difícil la com¬ 
prensión de su funcionamiento. En 
la primera línea, se altera la varia¬ 
ble del sistema DEF SZ, que hace 
el programa imparable. Es difícil 
cambiar el programa sin anular su 
correcto funcionamiento, pues si 
se reduce o aumenta su tamaño se 
altera la dirección de las rutinas en 
máquina. Si se sigue paso a paso el 
proceso de PEEK y POKE de cada 
sentencia, probablemente se llegue 
a la conclusión de que lo único que 
hace el programa es alterar la in¬ 
formación de canales, cuando en 
realidad está cambiando la varia¬ 
ble ERROR SP. Esto demuestra la 
astucia del programador. Con la 
variable de puntero de error altera¬ 
da. el sistema salta, una vez termi¬ 
nado el BASIC, a una rutina de la 
zona de variables con la sencilla 
función de desplazar un bloque de 
memoria, pero de una forma un 
tanto especial. Y es aquí donde 
empieza lo realmente curioso de 
este programa. Probablemente 
muchos os quedaréis bastante 
asombrados si se os dice que exis¬ 
ten instrucciones del microproce¬ 
sador Z-80 que no forman parte 
del juego estándar y que no figuran 
en ningún texto sobre él. Pues 
bien, existen, y precisamente este 
programa hace uso de ellas para 
conseguir un código impenetrable. 
Estas instrucciones se refieren a 
manipulaciones con el registro ín¬ 
dice IY, Como muchos sabéis, no 
es posible hacer cargas u operacio¬ 
nes directa e independientemente 
sobre los registros I o Y (con I no 
me refiero al registro vector de in¬ 
terrupción, sino al byte alto del 
IY). Sin embargo, si hacemos pre¬ 
ceder los códigos de operaciones 
de los registros H o L con el byte 
FD hexadecimal, conseguimos 
efectuar la misma instrucción so¬ 
bre el registro I o el Y respectiva¬ 
mente. La rutina en cuestión des¬ 
plaza el programa cargador en alta 
velocidad desde la zona de varia¬ 
bles a la parte superior de la me¬ 
moria, saltando posteriormente a 
ejecutar éste. Todo ello está en¬ 
mascarado con estas instrucciones 
no estándar, de forma que cual- 
























quier desensamblador dará un có¬ 
digo erróneo o sin sentido. Por si 
fuera poco, la rutina hace uso de 
bytes almacenados en el stack an¬ 
tes de su ejecución para calcular la 
dirección de origen del desplaza¬ 
miento. Así mismo, y utilizando el 
registro IY como ya se ha indica¬ 
do, introduce en el stack la direc¬ 
ción de comienzo de la rutina de 
carga, para saltar a ella posterior¬ 
mente con un RET. haciendo in¬ 
descifrable el destino del salto. 
Todo esto sería inútil si no fuese 
porque el programa cargador de 
alta velocidad, que se halla en un 
principio en la zona de variables, 
está convenientemente codificado 
para evitar su desensamblado. Uti¬ 
lizando una técnica similar a la de 
conversión de código binario en 
código Cray, la rutina de carga está 
transformada mediante un OR ló¬ 
gico exclusivo (XOR) entre cada 
dos bvtes adyacentes. De igual for¬ 
ma es decodificada por el progra¬ 
ma que la desplaza. 

El programa cargador es prácti¬ 
camente una copia de la rutina 
existente en la ROM con las cons¬ 
tantes de tiempo modificadas. Pero 
también posee algunas particulari¬ 
dades que le hacen realmente inge¬ 
nioso. En primer lugar carga un 
bloque de unos 20 bytes que no 
forma parte realmente del progra¬ 
ma. Posteriormente carga el blo¬ 
que principal, que comienza en la 
dirección 16384, y que por tanto 
incluye la pantalla. Entre ellos 
existe una pequeña pausa similara 
la de cualquier programa con ca¬ 
becera, y que no parece significati¬ 
va en absoluto. Pero en ella reside 
el secreto de la protección contra 
la copia de cinta a cinta, por cierto 
bastante efectiva, como muchos 
habrán podido comprobar amar¬ 
gamente. Al terminar de cargar el 
primer bloque, la rutina entra en 
un bucle de lectura de la puerta del 
cassete con una duración determi¬ 
nada. Para explicar la finalidad de 
esta lectura, hay que entender el 
funcionamiento de un cassete con 
control automático de nivel. Este 
sistema consiste en un amplifica¬ 
dor de ganancia variable controla- 


El Decaíhlon incorpora las 
mejores técnicas de 
protección. Un bloque de 
BASIC seguido de dos 
bloques sin cabecera . 


da por tensión con un sistema de 
ajuste. Si la señal en la entrada es 
insuficiente para ser grabada, el 
| sistema eleva la ganancia del am¬ 
plificador hasta que la señal tenga 
nivel suficiente para la cabeza de 
grabación. Por el contrario, si la 
señal es muy fuerte, el amplifica¬ 
dor reduce su ganancia hasta el ni¬ 
vel adecuado. En ausencia de se¬ 
ñal. el amplificador eleva su ga¬ 
nancia hasta el máximo haciéndo¬ 
se muy sensible. Todos los ruidos 
que se generan en los circuitos y en 
las líneas de transmisión son am¬ 
plificados y grabados con un nivel 
considerable. Este es el ruido típi¬ 
co que aparece en una grabación 
con estos aparatos cuando no in¬ 
troducimos ninguna señal. Si hace¬ 
mos una copia d<d programa en 
cuestión con estos cassetes, al lle¬ 
gara la pausa entre los dos bloques 
el amplificador de grabación ele¬ 
vará su ganancia y grabará los rui¬ 
dos existentes. El bucle de lectura 
de la puerta del cassete comprueba 
que no haya ningún ruido extraño. 
Si lo encuentra, dado que el origi¬ 
nal debe estaF exento de ellos, fija 
un byte de control que hará que el 
programa se autodestruya ai final 
de la carga, para mayor despíste 
del «personal». 

Este programa, como hemos 
comprobado, se merece realmente 
un elogio por la creatividad y el in¬ 
genio de sus sistemas de protec¬ 
ción. Sin embargo, también hemos 
visto su vulnerabilidad ante un 
' usuario conocedor de la máquina. 
Verdaderamente el software sopor¬ 
tado en cassete está condenado de¬ 
finitivamente a la piratería, y qui¬ 
zá la única salida sea el soporte 
«duro» (ROM) o los sistemas de 
protección mediante hardware. 
dado que el microdrive también es 
vulnerable con un conocimiento 
profundo de su sistema operativo. 
En protección por hardware se co¬ 
mienzan a realizar algunos tímidos 
intentos, pero realmente no es 
aplicable en programas como jue¬ 
gos, puesto que verían incrementa¬ 
do su precio enormemente. 

Javier Cancela 











Conozca 

Extremadura 


CONSULTE A SU 


Con motivo de la VII Edición de la Semana de Extramadura en la 
escuela, se propuso la creación de un programa de ordenador que 
contribuyera a dar a conocer algunos aspectos de nuestra geografía. 
Para ello, se eligió un ordenador de amplia difusión Spectrum 48K. 
Después, se revisó el software útil para la elaboración del programa 
Country 48K, Melbourne Draw y Video Display. El primero, sirvió de 
base para la realización del programa y los dos restantes, se utilizaron 
para los gráficos. 

Finalmente, se iniciaron los trabajos de recopilación de datos, 
contando con la Delegación Provincial del Instituto Nacional de 
Estadística, tanto de Cáceres como de Badajoz. 

El resultado final fue este programa. 



El programa contiene informa¬ 
ción sobre todos los municipios 
extremeños (situación, número de 
habitantes, distancia a la capital, 
etc.). Tiene una pantalla principal 
a todo color y con efectos musica¬ 
les, que incita a su utilización; y 
puede ser utilizado para obtener 
información o para efectuar un 
examen al usuario. 

La información (que se presenta 
gráficamente), puede ser suminis¬ 
trada de manera automática (apa¬ 
recen todos los pueblos sucesiva¬ 
mente por orden alfabético) o bien 
de forma selectiva (para ello el 
usuario elige el pueblo del que so- 




























licita información); para evitar 
errores de transcripción, es el pro¬ 
pio ordenador el que suministra la 
lista de los 380 municipios extre¬ 
meños y el usuario sólo ha de ele¬ 
gir el número correspondiente al 
pueblo seleccionado. Como esta 
lista no cabe en la pantalla (sólo se 
visualizan 10 nombres, simultá¬ 
neamente con el menú), existen 
opciones que permiten subir o ba¬ 
jar en la lista total hasta localizar 
el numero correspondiente al pue¬ 
blo seleccionado. 

Cuando se elige la opción de 
examen, el micro, pide el nivel de 
dificultad (EGB, Bachillerato o Es¬ 
pecialistas) y el nombre del exami¬ 
nado. Mediante un número aleato¬ 
rio selecciona un pueblo y dibuja 
una flecha que lo señala en el 
mapa. También mediante núme¬ 
ros aleatorios, escribe, en un late¬ 
ral de la pantalla, cinco nombres 
de pueblos, convenientemente nu¬ 
merados, entre los que se encuen¬ 
tra el del pueblo que existe en el 
lugar señalado en el mapa. Depen¬ 
diendo del índice de dificultad ele¬ 
gido se desprecian aquellos pue¬ 
blos demasiado pequeños o dema¬ 
siado cerca del correspondiente a 
la respuesta correcta. El usuario 
debe pulsar el número (del 1 al 5) 
que corresponde al pueblo que, se¬ 
gún él, está siendo señalado. 

El programa va memorizando el 



Examen de Geografía, para aprender la 
localización geográfica de los distintos 
pueblos. 


pias funciones, concretamente, la 
que reserva para controlar la im¬ 
presora. 

El programa puede ser adaptado 
para estudiar otras zonas geográfi¬ 
cas sin más que cambiar la panta¬ 
lla del mapa y los datos. 



información sobre otra población, en este 
caso de A ¡bala del Caudillo. 


sistía en que algunos usuarios ini¬ 
ciados en la utilización de mi¬ 
croordenadores, hacían “Break” 
para pedir un listado y, cuando 
terminaban de curiosear, pulsaban 
“Run”. Esto originaba el borrado 
de las variables y el programa deja- 



Tres niveles de dificultad: EGB, Información sobre hs pueblos:población, 

Bachillerato y Especialista. extensión, altitud, km. a la capital e índice 

de crecimiento. 


ORDENADOR 


número de respuestas correctas se¬ 
guidas y presentando el valor del 
récord y el nombre de la persona 
que lo ha conseguido. Cuando una 
respuesta es errónea, da la respues¬ 
ta correcta y pone a cero el marca¬ 
dor de calificación, 

La elaboración de este programa 
ha pasado por diversas fases y per¬ 
feccionamientos, se han ido am¬ 
pliando las opciones del menú, se 
han ido incluyendo efectos sono¬ 
ros y musicales, etc., hasta que se 
ha agotado la memoria del mi¬ 
croordenador; al final han sido uti¬ 
lizadas hasta zonas de memoria 
que el micro reserva para sus pro- 


Se incluye una subrutina que 
permite la cómoda modificación 
de los datos para su actualización. 
Esta subrutina permite también, 
cambiar, con relativa facilidad, un 
tipo de datos por otros nuevos que 
se quieran introducir. 

Durante la VH Semana de Ex¬ 
tremadura en la Escuela se situa¬ 
ron ordenadores con este progra¬ 
ma en algunos locales de diversos 
pueblos de la región, para que fue¬ 
ran utilizados libremente por el 
público (para la mayoría este fue 
su primer contacto con un mi¬ 
croordenador). Una dificultad que 
apareció con cierta frecuencia con- 


ba de funcionar. Para evitar esta si¬ 
tuación se chequean todas las te¬ 
clas que van siendo pulsadas y se 
ignoran las que pueden producir 
errores, y se ha añadido una subru¬ 
tina que impide que el programa 
sea abierto. 

Las personas que deseen una co¬ 
pia en cinta de cassette de este pro¬ 
grama puede pedirlo a la Sección 
de Informática del ICE de la Uni¬ 
versidad de Extremadura, Avda. 
de Elvas, s/n. Badajoz. 


Por E. Gómez, A. Pérez y M, Pérez. Sec¬ 
ción de informática del ICE de la Universi¬ 
dad de Extremadura. 
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Desensamblador 


I magínese que después de in¬ 
vertir su dinero en un «mara¬ 
villoso programa» para su 
MI Spectrum descubre al llegar a 
casa que el preciado software 
no hace exactamente lo que se de¬ 
cía o quizá lo que usted pensaba 
que haría. O imagínese que desea 
hacer una modificación a una ruti¬ 
na de código máquina y se encuen¬ 
tra con que el fichero que contenía 
el programa fuente, da insistente¬ 
mente error de carga. 

En cualquiera de estos casos se 
verá a sí mismo estudiando una 
larguísima lista de códigos hexade- 
cimales, tratando de discernir qué 
hace el dichoso programa. Y aun¬ 


que el mismo manual de su Spee- 
trum contiene una lista de nemó- 
nicos y códigos asociados, no es 
una tarea sencilla ni agradable; de¬ 
jando aparte el agravante de que 
hay instrucciones de hasta 4 hytes 
de longitud que dificultan conside¬ 
rablemente el «desensamblado 
manual». 

Este es el problema que el pro¬ 
grama propuesto resolverá. Preci¬ 
samente la interpretación de listas 
de códigos y otros trabajos mecáni¬ 
cos de esta índole son tareas en las 
cuales los ordenadores no tienen 
rival posible. Esto libera al progra¬ 
mador permitiéndole emplear su 
tiempo en tareas más creativas. 


Quizá los profanos en materia de 
lenguaje máquina sigan sin com¬ 
prender aún la necesidad de tal he¬ 
rramienta. Para ellos daremos una 
breve explicación al mínimo nivel 
posible. 

Los fabricantes de microproce¬ 
sadores crean, al diseñar uno de es¬ 
tos elementos, un lenguaje de pro¬ 
gramación formado por comandos 
simples que controlan el micro- 
procesador, llamado lenguaje má¬ 
quina. El lenguaje máquina pro¬ 
piamente dicho se compone de ce¬ 
ros y unos agrupados en bloques de 
8 hits que forman los hytes. Cada 
uno de estos bytes tiene un signifi¬ 
cado propio como comando de 


1 LET n*-"MOP“l RETURN 

2 LET n*-"LD BC,"+STR* FN n(P 
EEK (cofit + l>, PEEK (cont+2M: LET 

cont=cont+2¡ RETURN 

3 LET n*-"LD (BC),A“t RETURN 

4 LET n*“"INC BC": RETURN 

5 LET n*»"INC B": RETURN 

6 LET n*=“DEC B": RETURN 

7 LET n*="LD B, M +STR* (PEEK ( 
cant+H ) : LET cant=cont +li RETUR 
N 

8 LET nÍ="RLCA": RETURN 

9 LET nÍ“"ÉX AF t AF r ": RETURN 

10 LET rti= n ADD HL, BC" s RETURN 

11 LET nÍ*"LD A,(BO"a RETURN 

12 LET rrÍ="DEC BC"¡ RETURN 

13 LET nÍ= n INC C"; RETURN 

14 LET ni=" DEC C ,É = RETURN 

15 LET nÍ-"LD C p "+STRÍ (PEEK £ 
cQht+Uh LET cont-cont+l a RETUR 
N 

16 LET n*= M RfiCA"s RETURN 

17 LET n*-"DJNZ "+STRÍ FN jico 
rit ) : LET con t=cant+la RETURN 

IB LET ni- "LO DE, "+STRi FN níP 
EEK t Can t+1 ) , PEEK (con14-21): LET 
cont=cont+2i RETURN 

1 9 LET n*= ,i LD (DE í , A " a RETURN 

20 LET n$="INC DE": RETURN 

21 LET nÍ= H< INC D" " RETURN 

22 LET ni-”D€C D”: RETURN 

23 LET n*“"LD D, "+STRÍ (PEEK < 
cont+í))i LET cant=corit+li RETUR 
N 

24 LET ní="RLA"a RETURN 

25 LET n$="Jft "+5TRÍ FN j ícont 
)¡ LET cont«cont+lí RETURN 

26 LET ní^"ADD HL,DE"t RETURN 

27 LET n»s M LD A f (DE)" ; RETURN 

28 LET ní="DEC DE " s RETURN 

29 LET ni^’INC E"s RETURN 

30 LET n$=" DEC E 11 : RETURN 

31 LET nÍ= H LD E,"+STR$ (PEEK ( 
cont + n>: LET cont=cont + l3 RETUR 
N 

32 LET nf= ll RftÁ": RETURN 

33 LET n$- M JR NZ,"+BTR$ FN j£c 
ont>i LET cont-eont + i a RETURN 

34 LET n$= ,s LD HL, feL +STRÍ FN n £P 
EEK ícont+1) , PEEK (cont+2)>s LET 


COdt-cant+2s RETURN 

35 LET ní="LD Í M +STRÍ FN n(PEE 
K <cant+l) , PEEK (cont+2> >+ ,l í ,HL" 
í LET COnt-cant+2: RETURN 

36 LET n$=“ INC HL ,P : RETURN 

37 LET ní="INC H": RETURN 

38 LET n$= p ‘DEC H"¡ RETURN 

39 LEI n$-"LD H,"+STR* (PEEK ( 
cont+l))* LET cont^eant+li RETUR 
N 

40 LET ni= "DAA" í RETURN 

41 LET ni-"JR Z>"+STRS¡ FN j ico 
nt)f LET cant=coot+h RETURN 

42 LET n$="'ADD HL, HL 11 1 RETURN 

43 LET nÍ="LD HL,("+STR4 FN ní 
PEEK £cont+l),PEEK (cont+2))+")" 
j LET cant“eont+2s RETURN 

44 LET ni="DEC HL" i RETURN 

45 LET ní—"INC L": RETURN 

46 LET ni-"DEC L"! RETURN 

47 LEI ní="LD L f "+STRÍ (PEEK í 
cont+l>>: LET coht=cont+l: RETUR 
N 

48 LET n*- ll CFL l, s RETURN 

49 LET n$- 11 JR NC, "+STRÍ FN j íc 
ont)í LET cont-cant+1:.RETURN 

50 LET ni-"LD 5P,"+STRS FN n (P 
EEK (cont+1),PEEK (cont+2))a LET 

□□nt=cont+2: RETURN 

51 LET ni—"LD í"+STRÍ FN n(PEE 
K feont+1) , PEEK: Ccont+2) Í + 11 > P A M t 

LET cont”COnt +2í RETURN 

52 LET ní= 11 INC 8P"s RETURN 

53 LET ni» M INC (HL)"f RETURN 

54 LET ni="DEC ÍHL)"¡ RETURN 

55 LET ni=“LD (HL),"+STRÍ (PEE 
K ícont+1>): LET Cont-cont+ 1 a RE 
TURN 

56 LET nÍ- n SCF": RETURN 

57 LET nÍ- IL JR C,."+STR$ FN j (co 
nt)a LET cont=cont + 1 i RETURN 

58 LET ni="ADD HL^SP"* RETURN 

59 LET nÍ-"LD A, £ ,1 +8TRi FN níP 
EEK (cont+ 1) , PEEK (cont+2) ) + ")" : 

LET cont=cpnt+2: RETURN 

60 LET ni="DEC BP": RETURN 

61 LET ní= iJ INC A"í RETURN 

62 LET r»Í-"DEC A": RETURN 

63 LET n*= JI LD A,"+STRÍ (PEEK ( 
cont+1) > í LET cont=cont+ 1; RETUR 


64 

LET 

nÍ-"CCF "i RETURN 

65 

LET 

ni-"LD 

B*E¡" ¡ 

RETURN 

66 

LET 

n*="LD 

B„C m í 

RETURN 

67 

LET 

n*= M LD 

B t D " i 

RETURN 

68 

LET 

n i— 11 LD 

B,E"¡ 

RETURN 

69 

LET 

ní="LD 

B,H"t 

RETURN 

70 

LET 

ni^LD 

B,L": 

RETURN 

71 

LET 

n$=”LD 

B,(HL>"s RETURN 

71 

LET 

nÍ=*"LD 

B , A" : 

RETURN 

73- 

LET 

n*=' h LD 

C, B"f 

RETURN 

74 

LET 

nÍ-"LD 

G , G " s 

RETURN 

75 

LET 

ní= ,, LD 

C.D": 

RETURN 

76 

LET 

n*="LD 

C ^ E " í 

RETURN 

77 

LET 

ni—"' LD 

ChH"¡ 

RETURN 

70 

LET 

nÍ="LD 

C p L " : 

RETURN 

79 

LET 

nt="LD 

C, (HL) 

RETURN 

eo 

LET 

n*="LD 

C, A " í 

RETURN 

81 

LET 

n$="LD 

D p, B" s 

RETURN 

02 

LET 

ní-"LD 

D f C"¡ 

RETURN 

83 

LET 

ni-"LD 

D, D": 

RETURN 

84 

LET 

n*-"LD 

D, E" ? 

RETURN 

05 

LET 

n*="LD 

D, H M í 

RETURN 

86 

LET 

n*= 'LD 

D,L"s 

RETURN 

i 87 

LET 

nÍ^"LD 

D, CHL) 

'"a RETURN 

88 

LET 

n*="LD 

Dp A"; 

RETURN 

89 

LET 

ní="LD 

E P B"í 

RETURN 

9Ü 

LET 

ni--" L D 

E, C ,k : 

RETURN 

91 

LET 

ní-' 1 LD 

E, D" í 

RETURN 

92 

LET 

ni-"LD 


RETURN 

93 

LET 

nÍ= IH LD 

E ? H" s 

RETURN 

94 

LET 

ni="LD 

E,L"; 

RETURN 

95 

LET 

rí 3 "LD 

e,(hl: 

i 11 ; RETURN 

96 

LET 

ni="LD 

E, A" f 

RETURN 

97 

LET 

ni="LD 

H , B " : 

RETURN 

9B 

LET 

ní="LD 

H, C " : 

RETURN 

99 

LET 

ní="LD 

H, D " í 

RETURN 

100 

LET 

ni~"LD 

hLE": 

RETURN 

101 

LET 

ni 51 " LD 

H, H " ; 

RETURN 

102 

LET 

ni—"LD 

H,L"í 

RETURN 

103 

LET 

nÍ="LD 

H, íHL) " í RETURN 

104 

LET 

nÍ="LD 

H,A"; 

RETURN 

105 

LET 

nÍ="LD 

L, B M ! 

RETURN 

106 

LET 

ní-^LD 

L, C " i 

RETURN 

107 

LET 

ni™"LD 

L,D"a 

RETURN 

108 

LET 

ni = ri LD 

L,E"t 

RETURN 

109 

LET 

ní="LD 

L,H": 

RETURN 

110 

LET 

nÍ="LD 

L, L": 

RETURN 

1 11 

LET 

rti-"LD 

L,(HL>": RETURN 

112 

LET 

ni="LD 

L s A"a 

RETURN 

113 

LET 


(HL),B"í RETURN 














Con frecuencia oímos hablar de 
ensambladores-desensambladores, y de sus ventajas 
en la programación del código máquina. Javier 
Cancela nos desvela los misterios de estos últimos, y 
el listado completo del programa. 


ejecución de una orden o bien 
como una dirección de memoria o 
cifra. Para hacer comprensibles es¬ 
tos códigos se asocia a cada uno de 
ellos un nombre o nemónico que 
describe brevemente su función y 
sus argumentos, ya que de otra for¬ 
ma sería prácticamente imposible 
realizar programas de importancia 
en el lenguaje madre de los micro- 
procesadores. Existen programas 


del 


114 

LET 

n*^"LD ÍHL) , C M : RETURN 

115 

LET 

ní—" LD ÍHLKD": RETURN 

116 

LET 

ni=”LD (HL) , E JÍ : RETURN 

117 

LET 

ni=" LD ÍHü'pH": RETURN 

lie 

LET 

nÍ-’'LD ÍHL) \ L ": RETURN 

119 

LET 

n®="HALT": RETURN 

120 

LET 

n*= 1 'LD (HL) ,A"í RETURN 

121 

LET 

n*="LD A 

\ .B": RETURN 

122 

LET 

n$-"LD h 

i-C": RETURN 

123 

LET 

n$="LD A 

i,D": RETURN 

124 

LET 

n*“"LD A 

,E": RETURN 

123 

LET 

ni-"LD A 

i f H"i RETURN 

126 

LET 

n$= "LD A 

í»L"! RETURN 

127 

LET 

ni-"LD A 

i, ÍHL) 11 : RETURN 

123 

LET 

nf="LD A, A": RETURN 

j 129 

LET 

n®="ADD 

A j, B" : RETURN 

130 

LET 

ni™"ADD 

A, C : RETURN 

131 

LET 

ní-"ADD 

A,D"= RETURN 

132 

LET 

n®=" ADÉ) 

A, E"í RETURN 

133 

LET 

n$="ADD 

A,H": RETURN 

134 

LET 

ni™"ADB 

A, L": RETURN 

135 

LET 

ni™"ADD 

A„(HL)": RETURN 

136 

LET 

n®="ADD 

A,A": RETURN 

137 

LET 

ní- "ADC 

A, El": RETURN 

130 

LET 

n*="ADC 

A, C" : RETURN 

139 

LET 

ni-"ADC 

A,D " í RETURN 

140 

LET 

nt = "ADC 

A „ E" ; RETURN 

14 1 

LET 

ni="ADG 

A,H": RETURN 

142 

LET 

ni-"ADC 

A,L": RETURN 

143 

LET 

ni™"ADC 

A', ÍHL)": RETURN 

144 

LET 

ní-"ADC 

A,A": RETURN 

145 

LET 

ni* 11 SUB 

B": RETURN 

146 

LET 

ni™"SUB 

C": RETURN 

147 

LET 

ni™ 11 SUB 

D" : RETURN 

148 

LET 

ni=r«SUB 

E" : RETURN 

149 

LET 

ni-"SUB 

H" j : RETURN 

150 

LET 

ni-"SUB 

L": RETURN 

151 

LET 

ni-^SUB 

ÍHL) " i RETURN 

152 

LFT 

ni—"SUB 

A": RETURN 

1 53 

LET 

ni™ 11 SBC 

A,B ": RETURN 

154 

LET 

ni-"SBC 

A*C"s RETURN 

155 

LET 

nÍ=* Ji 5BC 

A,D"i RETURN 

1 56 

LET 

nÍ="SBC 

A,E lL : RETURN 

157 

LET 

ní 3 "SBC 

A,H": RETURN 

150 

LET 

ní="SBC 

A„L ": RETURN 

159 

LET 

ni-"SBC 

A, ÍHL)"i RETURN 

160 

LET 

ní="SBC 

A,A “¡ RETURN 

161 

LET 

nl="AND 

B": RETURN 


162 

LET 

ní="AND C": RETURN 

163 

LET 

n®= "AND D 11 s RETURN 

164 

LET 

ni-"AND E"í RETURN 

165 

LET 

ni-"AND H": RETURN 

166 

LET 

n*=" AND L IÉ s RETURN 

167 

LET 

ni="AND í HL)“i RETURN 

160 

LET 

ní="AND A M ; RETURN 

169 

LET 

ni™"XOB B ": RETURN 

170 

LET 

ni-"XOR C"! RETURN 

171 

LET 

ni-"XÜR D": RETURN 

172 

LET 

n$="XQR E": RETURN 

173 

LET 

ni™"XDR H": RETURN 

174 

LET 

ni-">iQR L M ¡ RETURN 

175 

LET 

n$=“XDR (HL)": RETURN 

176 

LET 

n$=-' J XOR A' 1 j RETURN 

177 

LET 

nÍ- M OR B": RETURN 

178 

LET 

ni—"OR C": RETURN 

179 

LET 

ni="OR D "i RETURN 

180 

LET 

n®="0ft E": RETURN 

isi 

LET 

ni="DR H": RETURN 

182 

LET 

ní m "DR L"a RETURN 

183 

LET 

ni™" QR ÍHL) 11 a RETURN 

184 

LET 

ni-"OR A": RETURN 

185 

LET 

n$™"CP B": RETURN 

186 

LET 

ni= 11 CP C M : RETURN 

107 

LET 

ni="CP D": RETURN 

188 

LET 

ni="CP E"i RETURN 

109 

LET 

n*="CP H": RETURN 

190 

LET 

nÍ="CP L": RETURN 

191 

LET 

Fi*=" CP ÍHL)": RETURN 

192 

LET 

ni™"CP A": RETURN 

193 

LET 

ní- l, RET NZ 11 : RETURN 

194 

LET 

ni—"POP BC": RETURN 

1 95 

LET 

n$=' í JP NZ,"+STRÍ FN níP 

EEK 

(cont+1) „PEEK ícont+2)): LET 

cont—cont+2: RETURN 

196 

LET 

ni™"JP "+STRÍ FN nÍPEEK 

(cont + 1.) í PEEK ícont+2) > l LET co 

nt=cont+2: RETURN 

197 

LET 

n®™ M CALL NZ^"+5TRÍ FN n 

ÍPEEK ícont+1),PEEK ícont+2)) a L 

ET cant=- 

□□nt+2: RETURN 

198 

LET 

ní="PUSH BC": RETURN 

199 

LET 

ní=" ADD A f "+ETRÍ (PEEK 

(cont+1M: LET cont=cont+l¡ RETU 

RN 



200 

LET 

hÍ="R8T 0": RETURN 

201 

LET 

n*™"RET 2": RETURN 

202 

LET 

n®="RET": RETURN 

203 

LET 

ni-"JP Z f "+STRi FN n(PE 


EK ícont+I>pPEEK (can t+2))¡ LET 
cort=eant+2s RETURN 

204 LET cont=cont+l¡ GÜ SUB <30 
O+PEEK conth RETURN 

205 LET n*™”CALL 1, "+5TRi EN ní 
PEEK ícont+1) ,F'EEK tcont+2) ) ¡ LE 
T cant™cdnt+2a RETURN 

206 LET ni="CALL "+STR® EN n(P£ 
EK ícont+i) r PEEK tcont+2) LET 
cont^cont+^E RETURN 

207 LEI n*-“AD£ A,, ’+STR* ÍPEEK 
ícont+l>)¡ LET cünt=cant+l¡ RETU 
RN 

20B LET ni = ,f RST 8": RETURN 

209 LET ni-"RET NC": RETURN 

210 LET n®="PDP DE”: RETURN 

211 LET n*-"JP NC F ”+5TR* FN níP 
EEK ícorrt+1>,REEK íeont+2))¡ LET 

cont=cont+2 1 RETURN 

212 LET nt“ M OLÍT C'+STR® ÍPEEK, í 
cont+1 )>+“.), A" ¡ LET corit=cont+l : 

RETURN 

213 LET n*- lt CALL NC t "+STRi FN n 
ÍPEEK tcont+i),PEEK ftont+2)) s L 
ÉT cant=cont+2¡ RETURN 

214 LET n$="PU5R DE": RETURN 

215 LET ni = tp SUB "+STR® ÍPEEK Íc 
ont+1)>: LET cont=cont+1: RETURN 

216 LET hf="RST 16" s RETURN 

217 LET n*="RET C r 5 RETURN 

218 LET ní="EXX"s RETURN 

219 LET ni-"JF 1 C, M +STRi FN níPE 
EK icónt+1) f PEEK (cont+2>)s LET 
cont=cont+2í RETURN 

220 LET ni-"IN A, í"+STfti (PEEK 
(cont+1 ))+")'* s LET cont-cont+1: 
RETURN 

221 LET n®="CALL C F "+STR® FN ní 
PEEK (cont+1>,PEEK ícont+2))¡ LE 
T cont-cpnfc+2: RETURN 

222 LET cont=cont + lí LET i i- '■ IX 
80 SUB Í9O0+PEEK cont): RETUR 

N 

223 LET n®™ M BBC fl, "+BTRÍ fPEEK 
ícont+l))s LET cont=cont+l: RETU 
RN 

224 LET ni="RST 24": RETURN 

225 LET RET P0"£ RETURN 

226 LET ni-"POP HL": RETURN 


















llamados ensambladores que gene¬ 
ran a partir de un texto de nemóni- 
cos los bytes que forman el progra¬ 
ma en máquina en la memoria del 
ordenador. Los desensambladores 
realizan precisamente la función 
contraria: generan el texto de ne- 
mónicosa partir de los códigos. 

Después de esta pequeña clase, 
nos centraremos en el programa en 
cuestión. Está realizado e.t BASIC 
y es de gran sencillez para facilitar 
la comprensión de su funciona¬ 
miento. El precio de ello es una 
mayor longitud y por tanto más 
memoria ocupada. Optamos por 
esta solución en lugar de un pro¬ 
grama más corto, pero con técni¬ 
cas que harían notablemente más 
difícil su entendimiento. El pro¬ 
grama puede desensamblar código 
en cualquier dirección de memoria 
que no pertenezca a la porción 
ocupada por el propio programa 
en BASIC. El software a procesar 
que se halle en esta zona de memo¬ 
ria podrá ser deeodifícado simple¬ 
mente cargándolo en una direc¬ 
ción que se halle libre; con la faci¬ 
lidad que para ello nos da el co¬ 
mando del Spectrum LOAD 



“"CODE nnnnn; donde nnnnn es 
la dirección de memoria. El pro¬ 
grama preguntará dónde se halla 
realmente el código (dirección 
real) y dónde se debería hallar (di¬ 
rección virtual); de forma que el 
desensamblado aparecerá en pan¬ 
talla con las direcciones y saltos 
correspondientes a la zona donde 
normalmente reside el código, y 
donde verdaderamente debe ejecu¬ 
tarse. Huelga decir que el progra¬ 
ma a desensamblar deberá cargarse 
siempre por encima del RAMTOP 
establecido si no se quiere corrom¬ 
per el propio desensamblador. El 
RAMTOP será determinado por el 
propio usuario antes de cargar el 
programa BASIC, de forma que 
quede espacio suficiente para el 
programa en máquina. El CLEAR 
más bajo que se mede realizar con 


el desensamblador cargado es de 
aproximadamente 40000, ya que 
el programa ocupa unos 15 kbytes 
de memoria, que se convierten en 
16 con el espacio ocupado por las 
variables y el sistema BASIC. 

El programa dará un desensam¬ 
blado de cualquier código, pero si 
éste es una tabla de datos, o una 
cadena de caracteres, el resultado 
será un algoritmo sin sentido; ya 
que no puede ser capaz de diferen¬ 
ciar datos de verdaderas instruc¬ 
ciones. 

El funcionamiento del programa 
es de una simplicidad absoluta: al 
ser cargado se pondrá en funciona¬ 
miento e inmediatamente pregun¬ 
tará la dirección real, o el lugar 
donde se encuentra realmente el 
programa, y posteriormente pedirá 
la dirección donde deberla residir 
{obviamente se deberá contestar a 
las dos preguntas con la misma res¬ 
puesta si no se ha desplazado el có¬ 
digo de su dirección de ejecución). 
Después se deberá proporcionar el 
número de bytes que se desean de¬ 
sensamblar. Realizando el desen¬ 
samblado en varios bloques se 
pueden evitar tablas o cadenas que 


227 LET nÍ= J ’JP FQ, ''+STRi FN níP 


250 

LET 

ní-"LD SP,HL "í RETURN 


327 

LET 

"RE E": 

RETURN 


EEK ícont+i),PEEK (cont+2)»? LET 


251 

LET 

n*="JP M,"+STR* FN n(PE 


320 

LET 

nt="RR H": 

RETURN 


cant=cDnt+2a RETURN 


EK ícant+1J,REEK (cont+2)Jt LET 


329 

LET 

n*= J) RR L": 

RETURN 


228 LET ni="EX <SP),HL”: RETURN 


cont™cant+2¡ RETURN 


330 

LET 

ni 13 ' 1 RR C HL) " s RETURN 




252 

LET 

ni-"El": RETURN 


331 

LET 

n$="RR A": 

RETLJRN 


229 LET ní="CALL PQ f "+STRÍ FN n 


253 

LET 

n$=" CALL M, 11 +STR$ FN ni 


332 

LET 

ni- 11 SLA R >k 

: RETURN 


CPEEK. (cont+ 1 ) , PEEK fcont+2) ) í L 


PEEK 

(cont+ 13,PEEK ícant+2) > í LE 


333 

LET 

ni^SLft L " 

s RETURN 


ET cant=cont+2: RETURN 


T cont=cont+2: RETURN 


334 

LET 

nÍ="SLA D 11 

i RETURN 


230 LET nÍ="FUSH HL"i RETURN 


254 

LET 

cont=cortt+l: LET i i-" IY 


335 

LET 

ni—'"SLA E" 

a RETURN 


231 LET n*="AND +STRi fPEEK íc 


" m GQ 

SUS 

i Í900+PE&K cont)i RETUR 


336 

LET 

ni="SLA H K| 

í RETURN 


ont + D): LET cont=cont + i : RETURN 


N 




337 

LET 

n$=»"SLA L" 

s RETURN 




255 

LET 

ni- J, CP "+STRi íPEEK (co 


338 

LET 

ni="SLA ÍHL) 1 ': RETURN 

232 LET n*“ M RST 32 1,1 s RETURN 


rtt+1)): LET cont—cont+1: RETURN 


339 

LET 

ni= " SLA A 11 

i RETURN 


233 LET ni-"RET PE"e RETURN 


256 

LET 

nÍ="RST 56"a RETURN 


340 

LET 

n4="ERA B" 

; RETURN 


234 LET n*= M JP (HL)": RETURN 


300 

LET 

nÍ="RLC B”! RETURN 


341 

LET 

ni="SRA C" 

! RETURN 


235 LET n$- M JP PE., n +STR$ FN n<P 


301 

LET 

nf = ld RLE C": RETURN 


342 

LET 

n$="SRA D” 

; RETURN 


E.tK icón t + i ) f PEEK ícant+2))s LET 


302 

LET 

r,i= M RLC D FÉ : RETURN 


343 

LET 

ni="SRA E" 

i RETURN 


cont=oont+2¡ RETURN 


303 

LET 

ni—"RLC E": RETURN 


344 

LET 

SRA H" 

s RETURN 


236 LET ni-'EX DE, HL 11 ¡ RETURN 


304 

LET 

ní="RLC H" i RETURN 


345 

LET 

n*®"SRA L" 

: RETURN 


237 LET nÍ= l, CALL PE, "+GTRÍ FN n 


305 

LET 

n$—"RLC L ,k : RETURN 


346 

LET 

ni="SRA ÍHL)": RETURN 

(PEEK ícont + 1) . PEEK <cont+2Mi L 


306 

LET 

nt=" RLC (HL) ": RETURN 


347 

LET 

ni="SRA fl" 

í RETURN 


ET con t-ccint+2 t RETURN 


307 

LET 

rt*="RLC A": RETURN 


355 

LET 

ni- "Error 11 

: RETURN 


230 LET cont=cont+l: GD SUR Í60 


300 

LET 

nÍ= M RRC B n t RETURN 


356 

LET 

ni-"SRL B" 

: RETURN 


O+PEEK cant > = RETURN 


309 

LET 

nÍ="RRC C": RETURN 


357 

LET 

nt 1 "SRL C" 

í RETURN 


239 LET ni= 11 XDR "+STRi (PEEK (c 


310 

LET 

ni - 11 RRC D": RETURN 


350 

LET 

ni="SRL D" 

■ RETURN 


ont+l>>í LET cDnt=cont+i: RETURN 


31 1 

LET 

ni - "RRC E M t RETURN 


359 

LET 

ni="SRL E" 

c RETURN 


240 LET n$-"RST 40 ,r : RETURN 


312 

LET 

ni-"RRC H"i RETURN 


360 

LET 

ni^^SRL H“ 

: RETURN 


24 i LET ni— 11 RET P"s RETURN 


313 

LET 

nS="RRC L tp : RETURN 


361 

LET 

ni="SRL L" 

: RETURN 


242 LET "POP hF"? RETURN 


314 

LET 

n$=" RRC (HL)’ 1 : RETURN 


362 

LET 

ni="SRL ÍHL)": RETURN 

243 LET nÍ="JP P, "+STR$ FN n(PE 


315 

LET 

ni="RRC A": RETURN 


363 

LET 

ni^'SRL A kÉ 

: RETURN 


EK (cant+1 ) , F'EEK (cont+2) 3 : LET 


316 

LET 

n$="RL B"s RETURN 


371 

LET 

ni="BIT 0, 

■ G0 EUB 

500 

cont 3 cant+2 j RETURN 


317 

LET 

n*="RL C": RETURN 


Oi RETURN 



244 LET n*= ,, DI"s RETURN 


313 

LET 

ní-"RL D": RETURN 


379 

LET 

ni="&IT i. 

"; 30 SUEt 

500 

245 LET nt="CALL P/'+STR* FN n< 


319 

LET 

nt-"RL E"í RETURN 


0: RETURN 



¡ PEEK (cont + 1 > , PEEK tcúrit+2) 1 ¡ LE 


320 

LET 

ni="RL H“; RETURN 


337 

LET 

ni="BIT 2, 

"i GD SUB 

500 

T cont=cont+2¡ RETURN 


321 

LET 

RL L": RETURN 


0: RETURN 



246 LET n*= "F USH AF M : RETURN 


322 

LET 

nÍ-"RL (HL)": RETURN 


395 

LET 

ni—"BIT 3, 

"= GO SUB 

500 ! 

247 LET n$="0R " +-STRÍ ÍPEEK (cü 


323 

LET 

nÍ="RL A": RETURN 


0: RETURN 



nt+l>Í! LET con t -cont, + 1 : RETURN 


324 

LET 

n*= ll RR e r ¡ RETURN 


403 

LET 

nÍ= M RIT 4, 

"a GO SUR 

500 , 

240 LET ní= "RST 4B": RETURN 


325 

LET 

n*="RR C": RETURN 


Ot RETURN 



249 LET n$="RET M": RETURN 


326 

LET 

ni^'RR D 11 1 RETURN 


411 

LET 

n*= p, BIT 5, 

"5 GD SUB 

500 
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se hallen entre medias del progra¬ 
ma en código máquina. Por último 
será necesario contestar si se desea 
volcar el desensamblado por una 
impresora o bien por pantalla. La 
opción de impresora está pensada 
en principio para impresoras de 80 
columnas, de forma que se aprove¬ 
che el espacio extra, sacando dos 
instrucciones de programa por 
cada línea. Para aquellos usuarios 
más modestos que sólo dispongan 
de la impresora de Sinclair, expli¬ 
caremos más adelante cómo modi¬ 
ficar el programa para usar este pe¬ 
riférico. 

En cuanto a los listados resul¬ 
tantes hemos de especificar que to¬ 
das las cifras aparecen en decimal. 
Escogimos esta alternativa en lu¬ 
gar del sistema hcxadecima! {mu¬ 
cho más extendido en el mundo 
del lenguaje máquina), debido a 
que el Spectrum no dispone de la 
posibilidad de escribir números en 


z80 



esta base, ni de funciones de con¬ 
versión de tipo alguno; y esto ha 
llevado a que la mayoría de los 
usuarios estemos acostumbrados a 
manejar direcciones y bytes de me¬ 
moria en nuestro viejo sistema de¬ 
cimal. Los nemónicos son por su¬ 
puesto los establecidos por ZI- 
LOG, fabricante del procesador 
Z80. Los saltos relativos de las ins¬ 
trucciones JR y DJNZ son dados 
en forma de etiquetas; es decir, en 
lugar del número de bytes del sal¬ 
to, aparecerá la dirección de la ins¬ 
trucción a la que se realiza el salto. 


Cómo funciona 

El programa se empieza a ejecu¬ 
tar en la línea 2000. Como decía¬ 
mos anteriormente, no se hace 
ningún CLEAR en él; esta instruc¬ 
ción se debe ejecutar antes que el 
programa y según la dirección del 
código. La primera línea fija los 
colores del papel y la tinta y limpia 
la pantalla. Por supuesto, se pue¬ 
den cambiar los colores por otros 
cualesquiera. Después tenemos 
dos definiciones de funciones: la 
primera convierte un salto relativo 
de una instrucción JR o DJNZ en 
una etiqueta que indica la direc¬ 
ción donde se realiza el salto. La 
segunda convierte los valores entre 
0 y 255 de dos bytes que represen¬ 
ten una dirección de memoria en 
una cifra entre 0 y 65535 (0 a 64 
kbytes). 

Las líneas 2010 a 2025 realizan 
la entrada de datos necesarios para 


Os RETURN 


419 LET ní“"BIT 
0: RETURN 

6, 


80 

SUB 

500 

427 LET 

Oa RETURN 

7, 

” i 

GO 

3UB 

500 

435 LET n$»"RES 
Oa RETURN 

0, 

" í 

GO 

SUS 

500 

443 LET ni™"RES 
03 RETURN 


"f 

GD 

SUB 

500 

451 LET n$="RES 
0: RETURN 


M , 

30 

SUB 

500 

459 LET n*="RES 
0: RETURN 

3, 

11 s 

BQ 

SiJB 

500 

467 LET ni-"RES 
Oí RETURN 


í 

80 

SUB 

500 

475 LET n*“"RES 
0: RETURN 

5 ? 

" : 

GO 

SUB 

500 

483 LET ni="RES 
0: RETURN 

6 - 

u. 

GD 

SUB 

Uí 

o 

o 

491 LET ni-"RES 
Oí RETURN 

7, 

"3 

BO 

SUB 

5üü 

499 LET ní-"SET 
Oí RETURN 

0, 

" ! 

80 

SUB 

500 

507 LET n**- H SET 
Oí RETURN 

u 

"s 

SO 

SUB 

*500 

515 LET ni—"SET 
0; RETURN 

2, 

11 í 

80 

SUB 

500 

523 LET ni-"SET 
03 RETURN 


" í 

GO 

SUB 

500 

531 LET nÍ= ,p SET 
0: RETURN 

4, 

M . 

GD 

SUB 

Ul 

o 

o 

539 LET ni»«SET 
Oí RETURN 

5, 

: 

GD 

SUB 

500 

547 LET ni="SET 
Oí RETURN 



80 

SUB 

500 

555 LET ni-"SET 

7, 

ll ; 

GO 

SUB 

500 


Os RETURN 

6*4 LET n*=“IN RETURN 

665 LET nt="PUT RETURN 

666 LET n»="SBC HL,BC": RETURN 

667 LET n*="LD ( " i-STRS FN n CREE 
K (eont+1>,PEEK (eont+2>)+">,BC” 
: L£T eont-cpnt+2! RETURN 

660 LET n*="NEG ,, ¡ RETURN 

669 LET n*="RETN": RETURN 

670 LET n*="IM O": RETURN 

671 LET n*="LD I,A"! RETURN 

672 LET n*="IN C,<C)“¡ RETURN 

673 LET ní="DUT C,<C>"! RETURN 

674 LET n*="ADC HL.BC": RETURN 


675 LET n*="LD BC,("+STR* FN n( 
PEEK <cont+l>, PEEK ¡cont+21>+" > " 

= LET cont-cont+2s RETURN 
677 LET ni="RETI": RETURN 
679 LET n*-”LD R> A M s RETURN 
6BÜ LET n$-" IN D, íC )"é RETURN 
681 LET n*="DUT (D^ 11 ! RETURN 
¿32 LET ni—"SBC HL >, DE" : RETURN 
683 LET nÍ=”LD ("+5TRÍ FN n(PEE 
K í eont+1 > t PEEK ícont+2) > + "í , DE" 
t LET cont=cont +2: RETURN 
6B6 LET ni= " IM 1"': RETURN 
607 LET ni="'LD A,I": RETURN 

689 LET nf IN E^íO": RETURN 
609 LET nÍ="OUT tOjE": RETURN 

690 LET ni-"fiDC NL, DE"i RETURN 

691 LET ni="LD DE,'<"+STR* FN fi ( 
PEEK (cont + 1) , PEEK < tont +2 )> + " > 11 
! LET con t=cont+2i RETURN 

694 LET ni =,i IM 2" 1 ; RETURN 

695 LET ni- hl LD ñ f R": RETURN 

696 LET n " IN H,<C>"s RETURN 

ó97 LET nÍ="DUT RETURN 

69B LET rr#="SBC HL, HL 11 : RETURN 
699 L.L I ui|: "L.D f "'-*-STRÍ l : M n (PEE 

\ Icont * ;l > , PEEF ítrorrt+2) > + " > „ HL " 
: LET cont=corrt + 2s RETURN 

703 LET riif^RFíD"; RETURN 

704 LET ni^'IN L.tO": RETURN 

705 LET ni-"DUT CC;),L": RETURN 

706 LE 1 nH¡= " ADC HL., HL." : RETURN 
'07 I.ET ni^'LÜ HL„ ("+STRÍ FN n ( 

PEE k £ c □ n t, + l > H F 1 EFL (c on t + 2 ) ) + " } " 
' LEÍ t;ant;-cortt+2: RETURN 

711 LET ni^'RLD": RETURN 

712 LE I ní-- 11 1 N F 5 ÍC) " í RETURN 

714 LET rti= ,á 8BC HL, SP M ; RETURN 

715 LET ni” "LDí " +0TR$ P N n i PLE'F 
(cont+1) , PEEh ícont+2) > +" i 8P' ! i 

LE T c o n t -■ c on t + ? a R E 1 URN 

720 LEÍ nt--"JN A, URETURN 

721 LET n$-"UUT (C) H A"s RETURN 

722 LET n i- "ADC HL,SR‘* : RETURN 
7 2.;. I..ET ní" "1.0 SP , í"+STRÍ FN n C 

PEBb (cont+l) „ PEEK (c on t +2 > ) + '*) " 
a LET cont-c.nnt+2: RETURN 
7 6 0 LE T n i = " L D1 1 1 s RE 1' U RN 

761 LET n$-"LPí"s RETURN 

762 LET n*-" INI ,J : RETURN 


763 

LET 

nÍ-" 0 UTÍ " í 

; RETURN 


76B 

LET 

ni-"LDD" : 

RETURN 


769 

LET 

ni- "CPD ' 1 r 

RETURN 


770 

LE,T 

ní--" INI)" : 

RETURN 


771 

LET 

ni-"OU'l'D" 3 

i RETURN 


7 76 

LET 

nÍ-"LDlR"i 

! RETURN 


777 

LEI 

ni“"CPIR" 

RETURN 


770 

LET 

ni=" ENIFí" 

RETURN 


779 

LEI 

ni- ¡ □! IR" 

RETURN 


7B4 

LET 

nÍ-"LDDR 11 

RETURN 


785 

LEI 

ní-"CFDR" 

RETURN 


7S6 

LET 

ni-’ 1 1 NDR" 

RETURN 


787 

LET 

ni—"ÜTDR" 

RETURN 


909 

LET 

ni-"ADD "+ii+" N BC": 

RET 

URN 





925 

LET 

ni™" ADD "+J.Í+" , DE" s 

REI 

URN 





933 

LET 

ni’- "LO " + ifi+ 1 ', "+STRi 

i FN 


n í F : ' E EL (cont+l), PEE K (c em 1: + 2 ) > s 
LET cunt-"cont+2: RETURN 
9 34 LET ni- " |. D ( "+STR* FN n(PEL 
\ í ton t +1 > j, PEER (c on t +2 ) ) + " ) . " + v 
i ! LE f can t rnnt +2 a RETLJRN 


935 

LE'T 

ni-" 1 i NL 

"til; 

RETURN 

941 

TLÍRN 

LET 

ni-"ADD 

" + í, * + ' 

%" + iÍ3 RT. 

942 

LEI 

ni-"LD 1 

' +1. Í+ " 

í “ + S1 Ri F 


N n (PEET ( c on t + 1) , PE'.EF-' Ccortt+2) ) 
+ " ? H s LE " 3 Crint-cont+2s RETURN 

943 LET n¡t=* 11 DEC 'Hi: RETURN 

952 LET "INC í " + i T+"•+'“ + BT Ri 
PFEH: (f:ont+iH")" : LET ebnt^tant 
+lf RETURN 

953 LE 7 n*^"DEC C 11 + i. i +■" ► " +S 7'Ri 
F-TnLF 1 . (tpnt + 1) + "') 11 : I^ET cnnt^cont 
+1: RETURN 

954 LET ni - "LD í " +;t Í + "+"+8TPi P 
EEL (cont + lK+ M > , ‘’+á^ftíb PEEK Ccon 
t-'-V) f LET cprit-cont+S: RETURN 

957 LET n*= " A'DD " + i. i +, BP " : RE i 
L1RN 

970 LET nÍ-:: , '|..D LL ( " + i $ v 1 + "+Í3 ! : ;<í. 

PEE;!: (cont+í) +" ) ; LET í*ont“Cón 

t+ls RETURN 

97Q LET ni-"LD C,("+i*+"+"+STfti 

PEED.. l<:ont.+ |.) + 1 ’ ) " : 1. FT tont“ccjn 
t+1, ü RETURN 

986 I..ET ni- "LD D, {" ij. " + ^STRi 

PE.LF; •( coíit + l > + " ) " t LET tünt—con 


















el funcionamiento del programa. 
La dirección real del programa es 
almacenada en la variable «dir». 
La dirección virtual o de ejecución 
se toma en la variable «pos»; y el 
número de bytes es guardado en 
«Ion». La variable «imp» tomará 
el valor 1 cuando se desea salida 
por impresora. En la línea 2030 se 
inicializan algunas variables: 
«cont» es el puntero de dirección 
de la instrucción en curso de deco- 
dificación; y «offset» es la diferen¬ 
cia entre las direcciones real y vir¬ 
tual, que será usada posteriormen¬ 
te para calcular los saltos relativos, 
etc. La variable «col» es usada para 
la impresión a 80 columnas, de 
forma que el carro salte de linea en 
el momento adecuado. 

Las líneas 2040 a 2080 consti¬ 
tuyen el bucle principal del pro¬ 
grama. En la 2040 se toma el byte 
al que apunta el puntero de direc¬ 
ción. En la 2045 aparece la varia¬ 


t+li RETURN 

994 LET n*«”LD E,("+i *+" +"+STR* 
FEEK (cnnt f L ) + kl > " : LET cont-con 
t + i: RETURN 

1002 LET ní-" LD H, ( ,p + ;i *+ 11 + P, +STR* 
REEK lcont+lS+")"s LET cont*can 
t+ii RETURN 

1010 LET n*-"LD L s ( || + i*+ ,l + »+STR* 
PEEK ícant+1)+”) 11 a LET cant=con 
t + 15 RETURN 

1012 LET "LD ( ll + i $+" +" +STR$ P 
EEK Ícont+I) + H >,B"s LET cont=con 
t+1: RETURN 

,10 IT LET n**"LD £ "+¿ *+ "+«+5TR* P 
EEK íeont. + l)+”) > LET con t-c.ov\ 
t+1 a RETURN - 

1014 LET "LD r+i$+ ,, + ll +STR i t P 
EEK tcont + lH-") *D"¡ LET cont^can 
t+1 ; RETURN 

IQIS LET £ «+I*+" +"+STR$ P 

EEK íc pnt + l)+") f E ,, t LET cont «con 
t+is RETURN 

1016 LE I n^'tD < " + i *+ ,, + l, +STRfr P 
EEK ícoiit+1 ) +") , H" a LET cont “con 
t+1 a RETURN 

1017 LET n**"LD ("+i*+"+ " +STR* P 

EEK <CDnt+i>+ H ) 9 L"sLET t=ort=con 
t + li RETURN 

1019>LET n*= lp LD ("+i *+ M + ,, +STR* P 
EEK icónt+1 ) +" ) „A" s LÉT cnnt - cont 
+1eRETURN 

1026 LET n*="LD í' + i *+ " + ,, +STR4 

PEEK ícant+1 ) + M J 11 : LET cont^ean 
t+1: RETURN 

1034 LET n*=*"ADD ( ,l + i *+" + l, +STRí 
FEEK ícant+1 ) +") M i LET cont-cont 
+ H RETURN 

1042 LET n*-"ADC í "+i *+"+"+STR* 
FEEK ícont+l)+ pp 3 " : LET cont“cont 
+1: RETURN 

loso LET rr*="SUB ( "+í *+" + H +STR* 
PEEK í cont+1) +" 3 " i LET cont-cant 
+1: RETURN 

1050 LET rc**"SBC <"+i*+ "+"+STR* 
PEEK ícant+1) + ”) - * LET cont-cont 
+1: RETURN . 

1066 LET n*="AND < ,L + i *+ 11 +"+ETR* 
PEEK ícont+1)+“)"f LET cont-cont 
+1* RETURN 

1074 LET nt-" XOR !"+i*+"+"+STRt 


ble «d», que será la dirección que 
aparecerá en pantalla, es decir, la 
dirección real de ejecución del có¬ 
digo. Esta se obtiene añadiendo al 
puntero «cont» el desplazamiento 
«offset». La línea 2050 es realmen¬ 
te la clave del funcionamiento de 
todo ei programa. Esta instrucción 
llama a una subrutina cuyo núme¬ 
ro de línea es igual al valor del byte 
de código tomado más uno. De 
esta forma según la instrucción a 
decodificar, el programa llamará a 
una subrutina o a otra. En cada 
una de las distintas sub rutinas (for¬ 
madas por una sola línea de pro¬ 
grama), se asigna un valor a la va¬ 
riable al fanu mérica «nS». Esta va¬ 
riable correspone a nemónicode la 
instrucción decodificada. Por otra 
parte se calculan los saltos o direc¬ 
ciones que pudiesen existir en la 
instrucción mediante llamadas a 
las funciones definidas de las que 
se habló antes. Si la instrucción 


PEEK (cont+1)+“>"« LET cont=eont 
+ ls RETURN 

1092 LET n*='"0R (■• + i*+" + "+STR4 P 
EEK (cant+13+ "3": LET cont*cont+ 
ls RETURN 

1090 LET ní= 'CP r + ¿ *+■■+ ' + STR* P 
EEK taant + 1 i+* 1 ) " s LET cant=cant + 
1: RETURN 

1103 LET cont ^eant+2: GO SUB (15 
OO+PEEK cont 3: RETURN 
1125 LET n*="P0P "+i* 3 RETURN 
1 127 LET n*-"EX (5P% hp +í$: RETUR 
N 

1129 LET nfc—"PUSH M +i*s RETURN 
1133 LET n*-"JP t "+i *+" 3 iJ í RETUR 
N 

1506 LET n*-”RLC íA? s £ 41 +i*+« + " +8 
TR* FEEK (contal)+")": RETURN 
1514 LET "RRC í A) s í "+i *+" + M +S 
TR* PEEK ícontal 3 + 11 ) 11 s RETURN 
1522 LET n*“"RL í A) 9 í "+i t+ 1, + "+ST 
R* PEEK ícont“l)+ ,, > 11 1 RETURN 
1530 LET n*=“RR íA), í"+i*+ M +"+ST 
RS PEEK ttont-13 + 11 3 11 : RETURN 
1538 LET n»="SLA í M +if+"+ M +STR* 
PEEK (contal) +") "i RETURN 
1546 LET n*="BRA ("+!*+<■+ ”+STR* 
PEEK (cont-1)+"í M t RETURN 
1562 LET n*- ,l SRL ("+**+"+»+£TR* 
PEEK (cont-1) +" 3 " : RETURN 
1626 LET n*= JJ BIT "+STR4 í (P©EK < 
cont)-703/83 + % < M + i*+"+"+STR* PE 
EK (cont - t) + tE ) " í RETURN 
1690 LET n*="REB "+STR4 <(PEEK í 
cont) “1343 /03+% í ”+i*+^+“+5TR* P 
EEK ÍCünt-n+% 11 : RETURN 
1754 LET n$-"BET "+STR* ÍÍPEEK í 
cont) -19B) /0> + ", í ‘ + i *+‘' + "+5TR* P 
EEK í cont-1) + u > ,J l RETURN 
2000 INK 7: PAPER Os BURDER 0: C 
LS 

200% DEF FN jíc) = íPEEK íc+U+MP 
EEK íc+1 )< -127)*íc+2)J*£(PEEK íc 
+ U >127) ÍÍPEEK (c + 13 3 > + ( ¡PEEK Ce 
+ 1 } >127>*íc~ 254+PEEK (c+1)3 >)+dP 
4 set 

2005 DEF FN n<1 P h)“256»h+l 

2010'1NPUT "Oí rece i dn r&&! del p 

^QQr^lína? , ' ^dir 

2015 INPUT "Dirección virtual de 


está formada por más de 1 byte, el 
puntero es incrementado según co¬ 
rresponda. Una vez realizadas es¬ 
tas funciones, el control es devuel¬ 
to al bucle principal. En la instruc¬ 
ción 2060 se imprime en pantalla 
la instrucción decodificada; en pri¬ 
mer lugar la dirección donde resi¬ 
de («d») y en segundo lugar el ne- 
mónico con sus operan dos (««5»), 
Si no se ha escogido la opción de 
impresora se salta el bloque de fi¬ 
nes que realizan esta función. 

La línea 2063 «pokea» en la va¬ 
riable del sistema SCR CT un va¬ 
lor mayor de 1, evitando que el 
ordenador se pare cuando se 
llene una pantalla preguntando 
«scroll?». De esta forma, el listado 
saldrá a la vez por impresora y 
pantalla, sin necesidad de presio¬ 
nar una tecla cada 22 líneas. Las lí¬ 
neas 2065 y 2067 ejecutan la salida 
por impresora a 80 columnas. Si se 
dispone de una impresora Sinclair 


1 pr agr ama? 11 f pos 

2020 INPUT "Numera de bytes?% la 
n 

2025 LET imp-Gt INPUT "Impregar* 
? U/n)";K*: IF THEN LET 

imp«i¡ LPRENT CHR* 13 
2030 LET cant-diri LET offset=pq 
5-dir: LET cal“0 

2040 LET byte*PEEK canti LET cpl 
s=col +1 

2045 LET cHcont+offset 

2050 GD SUB byte+1 

2060 PRINT d,nlí IP imp=0 THEN 

GD TO 2070 

2063 FGKE 23692,255 

2065 IF UNT (col/2) ) <>(col/2) T 

NEN LPRINT d f n$, 

2067 IF UNT (cal/2) 3 * (cal/2) TH 
EN LPRINT d s n* P , 

2070 LET cont a cont+L 

2080 IF cont<“ídir+lon-l) THEN 

GO TO 2040 

2085 IF imp“l THEN LPRINT CHRf 
13 

2090 PAUSE 0: GO TO 2000 
5000 IF I NT flO+íÍÍPEEK cont)/8> 
“INT ÍÍPEEK COnt)/B3M-0 THEN L 
ET pf si ní+ l< B 11 

5010 IF INT f'lO+í ÍÍPEEK cpnt)/0) 
-INT ÍÍPEEK canty) /Q) ) 3 = i THEN L 
ET n*=n*+ l| C n 

5020 IF INT í10*(ÍÍPEEK cpnt)/S) 
-INT ((PEEK eant)/9>í>-2 THEN L 
ET ní-n*+ M D" 

5030 IF INT Í10*(ÍÍPEEK cont>/8> 
-INT ÍÍPEEK cont 3/S)3 3-3 THEN L 
ET ní-n*+"E ,p 

5040 IF INT ílO*íííPEEK cant)/S) 
-INT ÍÍPEEK coirit) /8) 3 3=5 THEN L 
ET nt=n*+"H" 

5050 IF INT Í10*(ÍÍPEEK cant)/8) 
-INT ((PEEK cont)/Q)33=6 THEN L 
ET n*-nt+"L M 

3060 IF INT Í10*(ÍÍPEEK contJ/B» 
^INT ((PEEK cont3/8 3)3 =7 THEN L 
ET ní=n*+"(HL) ,i 

5070 IF INT (10*(((PEEK canti/8) 
-INI ÍÍPEEK cont)/03))=S THEN L 
ET nf=ní+ ,, ñ" 

SOBO RETURN 



















z80 


u otra de 32 caracteres por línea, se 
deben sustituir estas dos instruc¬ 
ciones por esta otra: 

2065 LPRINT d.n$ 
de forma que se imprima un solo 
nemónico por línea. 

En la línea 2070 se incrementa 
el puntero de dirección. En la 2080 
se retoma al principio del bucle y 
se repite el proceso, siempre y 
cuando no se haya llegado a deco¬ 
dificar el número de instrucciones 
requeridas. Si se alcanza esta con¬ 
dición el programa sale del bucle y 
se envía un carácter de retomo de 
carro a la impresora (si se escogió 
esta opción) para impedir la línea 
que pueda quedar en el buffet de 
ésta. Por ultimo, el programa se 
detiene hasta que se presiona una 
tecla y se reinicia liza para un nue¬ 
vo desensamblado. 

El resto del programa está for¬ 
mado por las subrutinas de todos y 
cada uno de los nemónicos que 
constituyen el lenguaje máquina 
del Z80. Las líneas 1 a 255 forman 



el bloque de instrucciones cuyos 
códigos de operación están forma¬ 
dos por un solo byte (la instrucción 
completa con operandos puede te¬ 
ner más de un byte). Las líneas 300 
a 555 son las instrucciones cuyo 
código de operación empieza con 
el byte 203. Lo mismo es aplciable 
a las líneas 664 a 787, pero con el 
byte 237. Estas subrutinas son lla¬ 
madas desde las líneas 204 y 238 
respectivamente. Las líneas com¬ 
prendidas entre la 909 y la 1754 
son las correspondientes a las ins¬ 
trucciones que manejan los regis¬ 
tros índice IX e IY. La rutina a 


partir de la línea 5000 en adelante, 
determina el registro con que ope¬ 
ra un grupo de instrucciones según 
el valor de sus códigos, y es llama¬ 
da desde las subrutinas correspon¬ 
dientes a cada instrucción. 

Después de esta profunda des¬ 
cripción del programa, daremos 
algunas sugerencias para su imple- 
mentación y utilización. En pri¬ 
mer lugar, la importancia funda¬ 
mental de los NUMEROS de LI¬ 
NEA de las sentencias del progra¬ 
ma: no se deben cambiar o alterar, 
pues en ellos se basa el funciona¬ 
miento del programa. Tecleado 
todo el programa en el ordenador, 
se salvará con un nombre cual¬ 
quiera y con el comando LINE 
2000, de forma que cada vez que se 
cargue, comience a ejecutarse au¬ 
tomáticamente en la sentencia co¬ 
rrecta. Si por cualquier circunstan¬ 
cia se parase la ejecución, se debe¬ 
rá emplear el comando RUN 2000 
o GOTO 2000 para recomenzar el 
programa. 


...MI ORDENADOR ES SINCLAIR, 
MI SERVICIO TECNICO ES HISSA.. 


Y es lo lógico. Si has elegido el mejor 
microordenador del mercado, no vas a 
rennmrlo con cualauiera. 



Sólo Hissa te puede garantizar 
la utilización de piezas originales SINCLAIR 
y expertos técnicos en reparación. 


Y recuerda que no tendrás sobresaltos 
con el precio. 



"COSTE ESTANDAR POR 
REPARACION" 


Acude o la aelegación ffijjff más cercana. 


C/. Anbau. tl h 80, pisa 5° 1 0 

Cy Son Salero, n. a 3 

C/ Avdo de la Libertod n.° 6 Bloq 1 p Enfi Izq 0 

P.° de Ronda, n e 82, \ ° E 

€/. 19 de Julio. n.° 10 - 2.° local 3 

Telfs. C93) 323 41 65 - 323 44 04 

Telts.: 754 31 97 754 32 34 

Telf (968)23 3 8 34 

Telf.: (958) 26 15 94 

Telf {905)21 88 95 

08036 BARCELONA 

28037 MADRID 

30009 MURCIA 

18006 GRANADA 

33002 OVIEDO 

Hermanes del Rio Rüdñguez. n.° 7 0¡s 

0/ Universidad. nM - 2.° 1 . D 

Avda. de Gasteiz, n * 19 A - 1,° D 

C/. Travesía de Vigo. n* 32 ■ 

1 ° c/. Alares, n.° 4 - 5 c D 

Teií.. (954) 36 17 08 

Telf. (96) 352 48 82 

Telf.: (945) 22 52 05 

M (986) 37 78 87 

Tell (976) 22 47 09 

41009 SEVILLA 

46002 VALENCIA 

01008 VITORIA 

6 VK5G 

50003 TARAGOZA 
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ENTREVISTA 


SOFTWARE 
EDUCATIVO: 

¡QUE 
DIVERTIDO! 

Hablar de programas educativos no es sinónimo de 
programas aburridos. Los que más han estudiado el 
tema son las casas de software americanas, quienes 
incorporan en sus plantillas un amplio número de 
psicólogos y pedagogos. Hablamos con Damiá 
García, gerente de Idealogic y gran conocedor de la 
problemática educativa de este país. 










En Barcelona, en unos bajos re¬ 
cién estrenados, vamos a visitar a 
Damiá García: gerente de Idealo- 
gic, empresa editora de software 
educativo. 

Recorremos los pasillos del 
cuartel general. Vemos en una 
acristalada sala a la derecha que 
varios programadores trabajan fe¬ 
brilmente. Un cartel lo dice todo: 
«Sala de Pensar». 

Damiá nos recibe en su despa¬ 
cho. El es sicólogo de profesión, 
uno de los pioneros en trabajar con 
Logo en Barcelona, e impulsor de 
la edición de programas educati¬ 
vos para micrordenadores. 

Le preguntamos el por qué del 
software educati vo. 

—La idea de por qué debe exis¬ 
tir un soft educativo para mí, está en 
la esencia de por qué deben existir or¬ 
denadores. El invertir un dinero en 
un ordenador no es simplemente 
para tener un juguete más. Uno or¬ 
denador debe ser una herramienta 
de trabajo, una herramienta de cul- 
turización, y para aprovechar unos 
recursos que están ahora a nuestro 
abasto. Estos son los recursos que 
nos proporciona la informática. El 
ordenador es aquel aparato que me 
permite trabajar con el conoci¬ 
miento y manipular ideas de una 
manera mucho más rápida y orga¬ 
nizada. Si utilizo un ordenador en 
su aspecto puramente lúdico, creo 
que estoy tirando un dinero y de¬ 
jando de lado las posibilidades de 
futuro y de aprovechamiento cultu¬ 
ral e intelectual que potencial men¬ 
te tengo ante mí. Esto quiere decir 
que debe existir un sofi formativo, 
didáctico, en última instancia edu¬ 
cativo. 

No descarto la existencia de otro 
tipo de sofi; pero es una lástima que 
la pasión que tienen los chavales 
por los ordenadores sólo quede re¬ 
ducida a unas pocas instancias. 
Toda esta motivación puede permi¬ 
tir una ayuda en la transmisión de 
conocimientos. 


El ordenador me 
permite trabajar con el 
conocimiento y 
manipular ideas de una 
manera más rápida y 
organizada. 



—Asistimos desde hace un par 
de años a un impresionante boom de 
usuarios de micrordenadores. Un 
importantísimo porcentaje de és¬ 
tos, son ti i ños y jóvenes en edad es¬ 
colar. Toda su gran afición la ca¬ 
nalizan en el consumo de juegos y 
su mayor interés radica en colec¬ 
cionarlos. 

Han proliferado clubes, revistas 
y casas dedicadas a la importación 
de estos programas fundamental¬ 
mente del Reino Unido. Sin em¬ 
bargo, este mismo fenómeno aún 
no se ha desarrollado en toda su 
extensión en las escuelas. Se han 
dado pasos importantes, eso sí. 
Congresos y jornadas sobre temas 
de educación e informática, un 
proyecto gubernamental —el 
proyecto Atenea— y las escuelas 
privadas más activas ya han incor¬ 
porado la informática en alguna 
medida. 

Los chavales no han descubierto 
todavía que sus estudios, que en 
general suelen ser bastante tedio¬ 
sos y aburridos, podrían ser más 
llevaderos con el uso de la tecnolo¬ 
gía informática. 

—En efecto, el software sin 

otro elemento que el lúdico, tiene por 
intención sólo la de divertir y pasar 
el rato. La mayoría de las veces es 


una descarga nerviosa y sólo exige 
una rapidez de reacción. De la mis¬ 
ma manera que con otros juegos, 
llegan a aburrirse y los dejan de 
lado. Esta conducta que es habitual 
en los niños hace que también de 
jen de lado el ordenador, ya qut 
sólo les servía como medio pare 
cargar sus programas de juegos. 
Sólo una minoría manifiesta actitu¬ 
des más creativas hacia el ordena¬ 
dor, y comienzan a aprender len¬ 
guajes de programación. 

El uso de programas educativos, 
sin embargo, facilita el aprendizaje 
y la transmisión de conocimien¬ 
tos... 

—Perdona la interrupción. De¬ 
cías que comienzan a aprender 
lenguajes de programación. Sabe¬ 
mos que por lo general el BASIC 
es el lenguaje con el que empiezan. 
Pero aquí también se les cierran 
caminos. En primer lugar, porque 
su aprendizaje no está al alcance 
de todas las edades; y en segundo 
lugar, porque lo que quieren imi¬ 
tar, lo que les gustaría hacer, es de¬ 
cir. esos juegos que tanto les apa¬ 
sionan por su calidad gráfica, por 
su velocidad, y en definitiva por su 
complejidad técnica, requieren 
mucha profesional i dad; amén de 
estar escritos en su mayoría en len¬ 
guaje máquina; y la programación 
en lenguaje máquina es aún mu¬ 
cho más difícil. 

Los resultados que pueden obte¬ 
ner son pobres respecto a sus ex¬ 
pectativas, y un posible motivo de 
frustraciones. 

La creación de programas que 
canalicen esta actitud creativa y 
que no les cierren puertas, podría 
ser el marco de un trabajo educa¬ 
cional. ¿No te parece? 

—Efectivamente. La transmisión 
de conocimientos puede hacerse 
mediante programas de enseñanza 
clásicos en los que al chico se lo 
instruye a través de lecciones. Por 
lo que el uso no tiene para él, 
mayor interés que la novedad de te- 















ner esta lección en una pantalla en 
lugar de un libro o del dictado de 
un profesor. 

Hay otra manera en la que cree¬ 
mos más, destacando el uso inte¬ 
ractivo y las posibilidades de simu¬ 
lación. Es decir, creando una serie 
de «mundos» que el chaval puede 
controlar y dirigir, y lo que es más 
importante experimentar tanto 
comoquiera. 

Esto nos obliga a elaborar y dar 
forma a todas estas ideas y concep¬ 
tos que queremos trasmitir y con 
las que queremos que el niño traba¬ 
je. 

El concepto de «mundo» está 
muy relacionado con el de mi- 
croambientes del Logo. Es decir, 
debemos disponer un conjunto de 
posibilidades que se pueden mani¬ 
pular libremente y que están rela¬ 
cionadas con el conocimiento que 
queremos transmitir. Se me ocurre 
el ejemplo de Números Locos, don¬ 
de los niños controlan un par de 
muñecos haciendo una carrera de 
saltos. Estos saltos responden a 
principios.aritméticos. O como en 
Tedas Divertidas, en las que el 
niño tiene que evitar que desapa¬ 
rezcan las Figuras que van cayendo 
por la pantalla escribiendo su nom¬ 
bres. 

—Por lo general los chavales 
piensan que los programas educa¬ 
tivos son aburridos.,. 

—Nuestros juegos efectivamente 
son tan divertidos como cualquier 
otro con una diferencia fundamen¬ 
tal: los personajes o elementos con 
los que trabajan les están forman¬ 
do a la vez que divirtiendo. 

Podríamos preguntarnos hasta 
qué punto construir con un meca¬ 
no, jugar al monopoli o resolver un 
puzzle no es apasionante o diverti¬ 
do. 

Lo cierto es que nuestros progra¬ 
mas están diseñados principalmen¬ 
te para divertir, y fundamental¬ 
mente para enseñar. 

Por otra parte quienes normal¬ 


mente compran ios juegos a los ni¬ 
ños son sus padres. Muchas veces 
no tienen en cuenta los beneficios 
potenciales que un ordenaodr le 
puede proporcionar a un niño. Es 
evidente que si sólo se le enseña a 
usarlo para jugar, cuando el juego 
pierde su interés, el ordenador, 
como máquina de juegos, también 
pierde interés. 

—Tenemos entendido que en 
España se están comenzando a ha¬ 
cer cosas en este terreno. 

—En nuestro país todavía existe 
la identificación confusa de uso 
educativo del ordenador igual a lec¬ 
ciones por ordenador. 

Personalmente pienso que toda¬ 
vía falta un conocimiento más pro¬ 
fundo de las posibilidades del orde¬ 
nador. Este es fundamentalmente 
gráficos, sonido, e interactividad. 

Si esto se tuviera en cuenta no 
encontraríamos títulos de progr- 
mas como Matemáticas 1-2, y que 
nos recuerdan a novelas de entre¬ 
gas por fascículos. 

En la elaboración de un progra- 



En nuestro país todavía 
existe la identificación 
confusa de uso educati vo 
del ordenador igual a 
lecciones por ordenador. 


ma educativo debe participar un 
equipo multidiscíplinario de exper¬ 
tos que se encarguen cada uno de 
ellos del apartado en el que poseen 
experiencia. Es así como equipos 
como el de Tom Snyder Corp,, 
Joyce Hackasoon As., Interactive 
Picture Systems, y otros muchos 
están trabajando y realizando los 
programas más avanzados en este 
campo. 

Estos programas son de aventu¬ 
ras donde el personaje descubre la 
geografía o la historia de su país, 
realiza viajes a través de la mitolo¬ 
gía griega, o ha de construir un 
«pin-ball» teniendo en cuenta las 
reglas de los sistemas lógicos. 

Evidentemente al niño no se le 
propone el estudio de la geografía, 
sino que se le introduce en el mun¬ 
do de la fantasía que responde a la 
realidad. 

Cualquiera de estos programas 
exige meses de experimentación y 
desarrollo. Siempre se intenta lle¬ 
gar a la versión más simple posible 
desde el punto de vista de su facili¬ 
dad de uso. De esta manera no es 
de extrañar encontrar programas 
que aparentemente son simples, 
pero su pontecialidad educativa es 
inmensa. Una analogía podría ser 
el uso de la arcilla, que no exige 
casi ningún conocimiento previo, 
pero con la que se pueden hacer 
hasta obras de arte. 

—Esto es fascinante. Especia¬ 
listas de distintas ramas como peda¬ 
gogos, grafistas e informáticos, tra¬ 
bajando para crear algo sencillo de 
usar pero potente en cuanto a sus 
resultados. Nos imaginamos que la 
valoración de este trabajo no suele 
ser muy buena. Somos muy afectos 
a dejamos deslumbrar por aquello 
que parece complicado y difícil de 
hacer, porque difícil lo vemos en el 
resultado. Utilizar estos programas 
nos exige una cierta mentaliza- 
ción, y nos ofrece la posibilidad de 
usar el ordenador con otras pers¬ 
pectivas. 















—Pero actualmente, ¿qué estáis 
haciendo? 

—Nuestro proyecto inmediato, 
después de haber sacado las dos 
primeras series de títulos de Spi- 
naker y Fisher Price, es el lanza¬ 
miento de una nueva serie que con¬ 
vierte al usuario en protagonista de 
libros clásicos como la Familia Ro- 
binson, entre otros. 

A medio plazo nos proponemos 
realizar programas de simulación 
para MSDOS y por supuesto se¬ 
guimos trabajando en Logo por sus 
enormes posiblidades. 

—Claro que para los maestros 
y profesores que trabajan en las es¬ 
cuelas, el poder hacerlo con estas 
perspectivas parecería difícil. 

—Yo les recomendaría a los pro¬ 
fesionales de la educación que están 
interesados en el uso de ordenado- 


A los profesionales de la 
educación les 
recomiendo que se 
lancen a experimentar 
con Logo y sus enormes 
posibilidades de 
simulación. 



res en sus clases, que no se conten¬ 
taran con realizar los típicos pro¬ 
gramas de aplicaciones matemáti¬ 
cas o de preguntas y respuestas, y 


que se lanzaran a experimentar con 
Logo y sus enormes posibilidades 
de simulación, que van mucho más 
allá de lo más conocido que son los 
gráficos de la tortuga. 

Logo permite crear programas a 
la medida de sus necesidades para 
que luego sus alumnos experimen¬ 
ten con ellos. 

Nosotros trabajamos con diver¬ 
sos grupos de profesores y con es¬ 
cuelas. Resulta realmente sorpren¬ 
dente ver cómo al cabo de poco 
tiempo son capaces de diseñar pro¬ 
cedimientos de simulación que en 
cualquier otro lenguaje les exigiría 
una formación técnica mucho más 
amplia y costosa. 

—Respecto a la posibilidad de 
compartir experiencias en este te¬ 
rreno haría falta un marco adecua¬ 
do para poder aprender y utilizar 
estos resultados en la escuela. ¿No 
crees que en este sentido estamos 
todavía un poco en pañales? 

—Otro proyecto en el que esta¬ 
mos trabajando y que ponemos en 
marcha a partir de este mes el Cen¬ 
tro de Actividades-Logo y Taller 
de Informática Educativa. Estará 
abierto a profesores, profesiona- 
| les, y a todos aquellos interesados 
| en conocer a fondo las posibilida- 
« des del ordenador en el medio edu- 
* cativo. 

1 También los niños podrán traba- 
| jar en estos talleres de familiariza- 
ción con la informática, 
i En este centro de carácter multi- 
| disciplinario se creará un entorno 
| apropiado para que contemos con 
| grupos de desarrollo de software 
5 educativo. 

| —Casi sin damos cuenta ya han 
í pasado más de dos horas de charla. 
| Nos despedimos. Nos sentimos sa- 
s tisfechos de saber que aquí en Es- 
| paña también queremos nuestros 
| propios logros en este terreno. La 
| ¡ sala de programadores ya no tiene 
| ' luz. Por hoy ha terminado la acti- 
| vidad. Son casi las diez de la no- 
$ che. Afuera está lloviendo. 
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Software 
en marcha 

Igualmente con motivo del 
Informal, Investrónsca dio a 
conocer su decisión de 
apoyar fuertemente a este or¬ 
denador en el terreno del 
software. Los primeros pro¬ 
gramas que verán la luz se¬ 
rán el QL-MEDIC1NA. va¬ 
demécum para archivar da¬ 
tos sobre medicamentos; 
QL-PORTICOS, cálculo, 
armado y medición de pór¬ 
ticos de edificación; QL- 
NOMINAS, hasta 500 nó¬ 
minas parametrizables, per¬ 
mitiendo hasta 40 de ventos y 
10 deducciones. 


Monitor «fuerte» 

En principio, cualquier mo¬ 
nitor puede servir para el QL, 
Sin embargo, por razones de ni¬ 
tidez debido a las 80 columnas. 


QL en el Informat 

Como ya anticipábamos en el 
número anterior, la feria Infor- 
mat supuso el lanzamiento de la 
versión española del QL. Pri¬ 
mera versión de su «nueva ge¬ 
neración de microordenadores 
en lengua local», como rezaba 
la publicidad. 

Esta primicia española, se 
debe según palabras de Charles 
Cotton, responsable de la políti¬ 
ca internacional de Sinclair, a la 
importancia del castellano en el 
contexto internacional y al lide¬ 
razgo de los ordenadores Sin¬ 
clair en España. 

En un stand llamativo cuyas 
paredes estaban formadas por la 
palabra QL, se presentaba el 
nuevo ordenador, junto con los 
discos de Quest. Pasada la sen¬ 
sación inicial, lo más llamativo 
resultaba ser la ausencia total de 
ordenadores Spectrum. 

El precio definitivo es de 

QL 2 


125.000 pesetas, incluidos los 
programas de Psion, notable¬ 
mente mejorados. Entre las ca- 
racterísticas principales desta¬ 
ca; mensaje del sistema, así 
como los avisos de error del 
operativo y de los cuatro pro¬ 
gramas de Psion, en castellano; 
acentuación de vocales; nuevos 
caracteres (! ¿ Ñ ñ ü g). 

Con ocasión de esta feria, pu¬ 
dimos comprobar las mejoras 
sustanciales llevadas a cabo en 
los nuevos programas de Psion. 
El acceso continuo a microdrive 
prácticamente se ha eliminado, 
a excepción de las opciones de 
ayuda, lográndose así una rapi¬ 
dez considerable. Asimismo, se 
ha reducido el tamaño de los 
programas, permitiendo mayo¬ 
res ficheros para el usuario. En 
este sentido, las prestaciones de 
los programas quedan de la si¬ 
guiente forma: 





















QL-Aplicaciones 

Los programas de Psion son 
verdaderamente interesantes, 
pero no lo son todos. Conscien¬ 
tes de ello, Sinclair anuncia la 
aparición de nuevos programas 
de aplicaciones: Entrepreneur, 


sinczratr" 


Project Ptanner y Decisión Ma- 
ker. 

Entrepreneur para ayudar al 
ejecutivo en sus decisiones fi¬ 
nancieras y análisis de cash- 
fiow; Project Ptanner para pla¬ 
nificar distintas actividades y 
resolver el problema de los 
tiempos crítcos; y Decisión Ma- 


sinczlgatr- 


ker para conocer qué decisión 
tomar y a qué coste. 

Estos tres programas han sido 
producidos por Triptych Pu- 
htishing Ltd., y se comercializa¬ 
rán en breve en el Reino Unido 
al precio de 39,95 libras (apro¬ 
ximadamente 8.000 pesetas) 
cada uno. 


stntíoír- 


Qt* Entrepreneur 



existen monitores «especiales» 
para este ordenador. Tal es el 
caso de este monitor de Idealo- 

gic. 

Entre las características del 
monitor color de ¡4 pulgadas, 
especíal-QL fabricado y comer- 


QL* Project Planner 



ciatizado por Idealogic, destaca 
precisamente la cualidad de re¬ 
sistir todo tipo de golpes, 

De dimensiones 36 x 36 x 36, 
dispone de conexiones RGB y 
Video Pal. Precio: 75.000 pese¬ 
tas. 



Conectares laterales. De 
abajo a arriba: entrada 
sonido, video-pal, salida 
video, video pal 
conmutador video pal 
RGB. entrada RGB y 
salida sonido. 



QL* Decisión Maker 



by 

TriiJtVdl Pnhllihtfffl 1^4 


Gráficos «a todo color» 



La preocupación por el desa¬ 
rrollo de aplicaciones comer¬ 
ciales, ha dejado en segundo lu¬ 
gar las posibilidades gráficas de 
este ordenador. Para remediar 
este problema, la casa inglesa 
Talent la lanzado el GRAP- 
HIQL. 

El programa se suministra en 
dos microdrives, aunque el se¬ 
gundo tan sólo incluye tres pan¬ 
tallas de demostración. Distri¬ 
buidor: Serma. 


Juegos 

Apostando por el QL, Ser¬ 
ma se convierte en la empre¬ 
sa pionera en material para 
este ordenador. Además del 
célebre ajedrez de Psion, 
acaba de incorporar a su ca¬ 
tálogo de productos los pri¬ 
meros juegos aparecidos en 
Inglaterra para el QL, la 
mayor parte de ellos de 
aventuras: The tosí kingdom 
ofZkul (aventuras: 7.500 pe¬ 
setas), West (aventuras: 
7.500 pesetas), Graphiqi (uti¬ 
lidad: 12.000 pesetas) y 
D-Day («war gatne» o juego 
de guerra: 9.000 pesetas). 


























































hoia electrónica 

inteligente 


La evolución de es¬ 
tos programas, auténti¬ 
cos «Best Sellers» del 
software Profesional, 
les ha llevado a incor¬ 
porar funciones más y 
más complejas, y algu¬ 
nos teóricos afirman 
que cualquier proble¬ 
ma que se pueda resol¬ 
ver mediante un pro¬ 
grama de ordenador se 
puede resolver me¬ 
diante una hoja elec- 


«Cash Flow»: Un Ejemplo 



Entre los cuatro pro¬ 
gramas incluidos con 
el QL no podía faltar 
una hoja electrónica. Y 
eso indica la creciente 
popularidad de este 
tipo de programas, a 
pesar del poco tiempo 
que han estado presen¬ 
tes estas aplicaciones 
en el mercado profe¬ 
sional. 

En 1979 dos estu¬ 
diantes de la Harvard 
Business School tenían 
que resolver problemas 
que incluían gran can¬ 
tidad de datos interre¬ 
lacionados a través de 
fórmulas. Se dieron 
cuenta de que cual¬ 
quier pequeña varia¬ 
ción en uno de los da¬ 
tos les exigía corregir 
toda la hoja en la que 
calculaban a base de 
lápiz, goma de borrar y 
calculadora. A menu¬ 
do, el problema incluía 
cuestiones como ¿qué 
ocurre si el tipo de in¬ 
terés aumenta un 2 por 
100? Eso Ies exigía re- 
calcular toda la hoja, 
con nuevo riesgo de 
errores. Un trabajo 
muy pesado, que deci¬ 
dieron aliviar con ayu¬ 
da de su microordena¬ 
dor, un Apple II. El re¬ 
sultado fue el famoso 
Visi Cale, del que se 


vendieron 400.000 
ejemplares en tres 
años. 

Su propósito era pre¬ 
sentar en la pantalla 
tablas de números y 
operar con ellos cómo¬ 
damente, con la capa¬ 
cidad de recalcular 
toda la tabla de una 
manera automática 
cada vez que se modifi¬ 
ca una de sus entradas. 
Resultan muy útiles 
para profesionales que 
deban tomar decisio¬ 
nes en materia econó¬ 
mica condicionadas 
por gran cantidad de 
factores. Alterando 
unas pocas entradas de 
la tabla y esperando 
unos instantes, se cal¬ 
cula un nuevo resulta¬ 
do acorde con las nue¬ 
vas hipótesis. 


Una de las aplicacio¬ 
nes clásicas de las ho¬ 
jas electrónicas de 
cálculo es la de resol¬ 
ver problemas de plani¬ 
ficación financiera. 
Para mostrar su reali¬ 
zación mediante ABA- 
CUS adaptamos uno de 
los ejemplos del ma¬ 
nual. Como allí, ante¬ 
cedemos cada comando 
de una referencia de co¬ 
lumna y fila. Esta refe¬ 
rencia no se debe te¬ 
clear; indica dónde de¬ 
bemos posicionar el 
cursor antes de intro¬ 
ducir la fórmula. En al¬ 
gunas fórmulas, el pro¬ 
grama nos pregunta en 
qué extensión de co¬ 


lumnas o filas debe ac¬ 
tuar el comando. En 
ese caso, indicamos en¬ 
tre corchetes la res¬ 
puesta que se debe in- - 

troducir. Pasemos a j 

analizar nuestra inver¬ 
sión. 

[Cl| “CASH FLOW” 

[C2¡ rept len 

(Cl)) 

Estos dos comandos 
introducen el título y lo 
subrayan. Es siempre 
importante que nues¬ 
tras hojas tengan un tí¬ 
tulo que identifique su 
contenido. 

[A4] row = month 
(col()-2) (columnas B a 
N) 


caí 
















trónica, aunque no 
siempre de una manera 
práctica, 

ABACUS es la apor¬ 
tación de Psion en este 
campo y, aunque pare¬ 
ce que ya no queda 
nada por inventar, sí 
incluye algunas mejo¬ 
ras sobre los programas 
de la generación ante¬ 
rior. 

Cualquier hoja elec¬ 
trónica divide la me¬ 
moria en celdas que 
componen una matriz 
rectangular, y la mane¬ 
ra ‘clásica’ de referir¬ 
nos a una celda es por 
una o dos letras (que 
especifican la columna 
en que nos movemos) y 
un número (que indica 
a qué altura de la co¬ 
lumna queremos lle¬ 
gar). Los programas 
más complicados in¬ 
cluyen la posibilidad 
de darle nombre a co¬ 



lumnas y filas, lo que 
permite una referencia 
más fáci I de memorizar 
para nuestros datos, así 
como la inserción de 
texto en algunas de las 
celdas, muy útil para 
conseguir tablas legi¬ 
bles. El programa de 
Psion cumple esta con¬ 
dición, al poderse refe¬ 
rencia r una celda me¬ 
diante nombres, que 
hayan sido insertados 


en la fila y columna co¬ 
rrespondientes. Mas 
aún, basta con indicar¬ 
le al programa el co¬ 
mienzo del nombre, 
con las letras suficien¬ 
tes para identificar la 
fila o columna de ma¬ 
nera única. 

Cada una de las cel¬ 
das puede contener 
tres tipos distintos de 
datos: números, texto o 
fórmulas. En caso de 


que la celda contenga 
una fórmula, el progra¬ 
ma no la mostrará, 
sino que presenta en 
pantalla su resultado 
cada vez que la evalúe. 
Sin embargo, la fórmu¬ 
la aparece en la parte 
inferior de la pantalla, 
lo que nos permite dis¬ 
tinguir la celda de 
aquéllas que contienen 
números. En caso de 
que la casilla contenga 
un texto, será éste el 
que se muestre, pu- 
diendo extenderse a las 
celdas vecinas si están 
vacías. 

Otra característica 
de cualquier hoja de 
cálculo (imprescindi¬ 
ble para olvidadizos) es 
la posibilidad de aña¬ 
dir filas o columnas en¬ 
tre las que ya están 
ocupadas. ABÁCUS lo 
permite sin más res¬ 
tricción que la capaci- 


[A5J row = rept 
width ()) (A a N) 

Mediante estas dos 
líneas introducimos los 
encabezamientos con 
los meses del año, co¬ 
menzando en diciem¬ 
bre (mes de la inver¬ 
sión inicial) y acaban¬ 
do en diciembre del año 
siguiente. Si nuestro 
programa es en casteia- 
no, los nombres de los 
comandos y meses se¬ 
rán en español, y las 
referencias a Ven.jan 
serán a Ven. ene. 

|A6| “Ventas 
|C6| 4000000 
[D6| row = ven¬ 
.jan* 1.02 (Da N) 


Con estas dos ins¬ 
trucciones introduci¬ 
mos una expectativa de 
ventas para nuestro 
producto de 4 millones 
de pesetas para el mes 
de enero, y un incre¬ 
mento previsto de un 2 
por 100 mensual a lo 
largo del año. 

[A7| “Coste de ventas 
|A7| row = ven.jan *0.5 
+ 750000 (CaN) 

[A8 | row = A5 (A a N) 

El coste de las ventas 
es igual a la mitad de 
las ventas más un coste 
fijo de 750000 Ptas. La 
fórmula llena automá¬ 
ticamente todas las ca¬ 
sillas del año con nues¬ 


tras estimaciones ini¬ 
ciales. La fila A8 queda 
subrayada al hacerla 
igual a la fila 5. 

|A9| “Bruto 

|B9j row = ven - eos (C 

aN) 

Con esta fórmula es¬ 
timamos nuestro mar¬ 
gen bruto, como la dife¬ 
rencia entre las cifras 
de ventas y las de coste 
para cada mes. 

|A11] “Gastos 
|A12| “Salarios 
|C12| row - 700000 (C 
aN) 

(A13| “publicidad 
IC13| row = 100000 (C 
aN) 

|Al4) “alquiler 


[04] row = 200000 (C 

aN) 

[A15| “Electricidad 
|C15| row = 50000 (C a 
N) 

| Al 6j “Inv./Mant. 
[Blój 2500000 
[Ció] row = 90000 (C a 
N) 

[ A17J row = a5 (A a N) 
Cou estas líneas in¬ 
cluimos en nuestra 
hoja las previsiones de 
gastos no imputables a 
las ventas del producto. 
La inversión inicial, de 
dos millones y medio 
en nuestra estimación 
inicial, es la única cifra 
en la columna de di¬ 
ciembre del año ante¬ 
rior. 























Las hojas electrónicas, 
auténticos Best Sellers 
del Software profesional 


dad total, limitada a 
15K en la versión 1 y 
ampliada a 23K en la 
versión 2. Las 15K de 
las primeras versiones 
permiten algo más de 
mil celdas ocupadas. 
Este número es relati¬ 
vamente pequeño, y 
resulta uno de los 
mayores inconvenien¬ 
tes del programa. Con 
la mejora en la versión 
2 se ha dado un paso 
en la dirección correc¬ 
ta, aunque la amplia¬ 
ción de memoria resul¬ 
tará imprescindible si 
queremos trabajar con 
grandes tablas de nú¬ 
meros. 

También podemos 
«abrir un hueco» en 
nuestro papel movien- 
l do su contenido a otra 


posición. ABACUS lo 
hace, bastando pulsar 
F3 luego C (de Copy) y 
especificar el rango de 
la hoja que será afecta¬ 
do por la copia (p. ej. 
al:b3 oCost.Feb:Vent- 
.Dic) y después el án¬ 
gulo superior izquier¬ 
do de la nueva locali¬ 
zación del bloque. 

Para borrar basta 
usar el comando Ru- 


bout (R) y especificar 
un rango. Todas las ca¬ 
sillas entre las dos da¬ 
das perderán su conte¬ 
nido. Otro comando 
imprescindible es Echo 
(E), que copia el conte¬ 
nido de una celda so¬ 
bre un conjunto de ca¬ 
sillas. Cuando se co¬ 
pian fórmulas, las refe¬ 
rencias de casillas son 
siempre relativas, a 


menos que se especifi¬ 
que lo contrario prece¬ 
diendo la referencia 
con el signo del dolar 
($)■ 

El comando A menú 
(A) permite editar un 
número, fórmula o tex¬ 
to. Es importante tener 
en cuenta que las fór¬ 
mulas duplicadas me¬ 
diante Echo o Copy 
son copias de la misma 
fórmula maestra, por 
lo que la modificación 
de una de las celdas 
cambiará la fórmula a 
lo largo de toda la hoja. 

Un punto a favor de 
ABACUS es el gran 
número de opciones de 
representación numé¬ 
rica de que dispone: se 
pueden representar nú¬ 
meros enteros, decima- 
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4! 

December 

Jdnuary 

Februsry 

dar ch 

Apr l 1 

6 5 Ventas 


4000000 

4080000 

AlálhOO 

4244832 

7¡Coste de Ventas 


2750000 

2790000 

2650800 

2B7241Ó 

9¡Eruto 

II 

II 

ii 

H 

1 

f\ 

1 

1 

II 

1250000 

1290000 

1330B00 

1372416 

LO 1 






11E Gastos 






121 Salarios 


700000 

700000 

700000 

700000 

13! Publicidad 


300000 

200000 

0 

0 

14! Alqui1er 


200000 

200000 

200000 

200000 

15! Electricidad 


50000 

50000 

50000 

50000 

léi ¡ Inv, / Mant * 

2500000 

90000 

90060 

90000 

90000 

IB!Total Gastos 

2500000 

1340000 

1240000 

1040000 

1040000 

20!Neto 

-2500000 

-90000 

50000 

2TOBO0 

3324 ih 

21 t 

22!Tasa Interna de 

Retorno 


B2 



23¡Coste del dinero 

10 


Valor Actual 

Neto 

3752SOS 


Para mayor simplici¬ 
dad, hemos supuesto 
constantes los gastos 
para todos los meses. 
Una vez construido el 
modelo, se puede va¬ 
riar el gasto en publici¬ 
dad a io largo de los 
meses, y ver cómo se 
alteran nuestras previ¬ 
siones. 

|A18[ “Total Gastos 


(12 a 16; B a N) 

[A19| row = a5 (A a N) 

|A20| “Neto 

|B20| Neto = Brut - 
Tot. (B a N ) 
















La opción de importación permite 
recibir datos de Easel o Archive 


les, exponenciales o 
con notación moneta¬ 
ria o porcentual, con 
cualquier carácter 
como símbolo moneta¬ 
rio. También se puede 
justificar texto o núme¬ 
ros a izquierda, dere¬ 
cha o centrado. Todas 
estas opciones se pue¬ 
den aplicar a cualquier 
rango de celdas. 

La gestión de archi¬ 
vos tiene los comandos 
necesarios para alma¬ 
cenar nuestro trabajo a 
salvo. Incluye también 
un comando para 
«Mezclar» dos tablas, 
sumando o restando de 
la hoja actual otra con¬ 
tenida en microdrive. 

En cuanto a funcio¬ 
nes de cálculo, ABA- 
CUS incorpora todas 


las funciones matemá¬ 
ticas previsiblemente 
necesarias, incluyendo 
trigonométricas y ex¬ 
ponenciales, así como 
funciones que propor¬ 
cionan promedios, su- 
matorios, tasas inter¬ 
nas de retorno o el va¬ 
lor actual neto de una 
inversión, el día de la 
semana correspon¬ 
diente a un mes dado, 
o indexan en una tabla 
un valor para interpo¬ 


lación. Incluso una 
función if, que propor¬ 
ciona valores depen¬ 
dientes de condiciones 
lógicas. 

La exportación ha¬ 
cia Easel, Archive o 
Quill resulta útil para 
insertar ias tablas en 
documentos, tratarlas 
como registros de una 
base de datos o realizar 
representaciones gráfi¬ 
cas de los resultados. 
La opción de importa¬ 


ción permite recibir 
datos de Easel o Archi¬ 
ve. Así, la facilidad de 
tratamiento gráfico de 
Easel queda reforzada, 
También es útil poder 
calcular usando regis¬ 
tros de una base de da¬ 
tos. 

En resumen, ABA- 
CUS es una hoja de 
cálculo que combina 
características muy 
avanzadas con las vir¬ 
tudes de los programas 
«clásicos» en este cam¬ 
po. Los lectores que 
conozcan ya algún 
programa de este tipo 
disfrutarán con su uso. 
Quienes nunca hayan 
usado esta herramien¬ 
ta, no sabrán cómo han 
podido sobrevivir tan¬ 
tos años sin ella. 


El total de gastos se 
construye sumando to¬ 
das las partidas de gas¬ 
tos para cada columna. 
El margen neto se ob¬ 
tiene como diferencia 
entre el margen bruto y 
los gastos totales. 


| A211 row = rept 
width 0) (A a N) 


Si, una vez construi¬ 
das las estimaciones 
mensuales de evolución 
de nuestro negocio, 
queremos extraer algu¬ 
na conclusión signific- 
tiva, podemos utilizar 
dos funciones definidas 
por el programa: irr 


(rango, período), que 

nos da la tasa interna 
de retorno para el nú¬ 
mero de filas o colum¬ 
nas especificadas en el 
primer parámetro, con¬ 
siderando el período en 
meses que las separa. 
O npv (rango, interés, 
periodo), que nos da el 
valor actual neto, con 
un significado similar 
en sus parámetros. 

[A22| “Tasa Interna de 
Retorno 

fC22| irr (Neto, 1) (B a 
N) 

El 1 especifica que se 
trata de cifras mensua¬ 
les. 

[A23] “Valor Actual 
Neto 


(C23J askn (“Interés”) 
[D23] 

(l-C23/1200)*npv 
(Neto, C23,l)(CaN) 

La casilla C23 nos 
pregunta el tipo de inte¬ 
rés estimado, y la casi¬ 
lla siguiente calcula el 
valor actual neto de la 
inversión. Esta cifra se 
debe comparar con la 
inversión inicial. Cada 
vez que se récaicule la 
hoja del programa nos 
pedirá una tasa de inte¬ 
rés, que usará para cal¬ 
cular el valor neto. 

Finalizamos mejo¬ 
rando el formato de 
nuestro ejemplo: 


F3 Grid, Width, 15 (A 
a A) 

F3 Justify, Cells, Text, 
Kight, A4:N4 

F3 Justify, Cells, Text, 
Right, A12:A16 

F3 Linits, Cells, Inte- 
ger, Al:N23 

Si cambiamos, a me¬ 
dida que evoluciona 
nuestro negocio, algu¬ 
na de las cifras de ven¬ 
tas, las previsiones de 
ios meses siguientes se 
construirán a partir de 
esa cifra, ya que la fór¬ 
mula siempre utiliza el 
mes anterior y le añade 
el 2 por 100. 
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Sorprendentemente, uno de 
ios programas que han roto eí 
monopolio de las aplicaciones 
«profesionales» para el QL es el 
Ajedrez de Psion. Un programa 
que empató con tres máquinas 
de ajedrez en el primer puesto 
del Campeonato del Mundo 
1984, celebrado en Glasgow. 

La presentación tridimensio¬ 
nal del tablero ya nos indica 
que el programa se sale de lo co¬ 
rriente. Muy estudiada, su reali¬ 
zación requirió la escritura pre¬ 
via de un programa de gráficos 
que permitiera el trabajo direc¬ 
to con el ordenador. Y es que, 
como dice Ann Hughes, la dise¬ 
ñadora gráfica del programa, 
«a! principio lo hacía todo so¬ 
bre papel gráfico, pero la panta¬ 
lla tiende a aplanar los dibujos. 
Ahora que estoy acostumbrada 
hago casi todo mi trabajo direc¬ 
tamente en pantalla». Y lo hace 
muy bien, como prueban las fo¬ 
tos que acompañan este artícu¬ 
lo. 

Se puede elegir entre la repre¬ 
sentación tridimensional, con 


Ganó el QL 


Efectivamente, le pusimos a prueba jugando 
contra uno de los programas más conocidos del 
mercado: el Sargon III, corriendo en uno de los 
ordenadores más atractivos en cuanto a diseño, 
el Macintosh. 

Elejirnos el nivel 3 en ambos programas, lo 
que supone jugar a quince segundos por movi¬ 
miento para ambos programas. Jugamos dos par¬ 
tidas. En la primera salió el QL y necesitó 64 
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movimientos para derrotarle. En la segunda, las 
blancas las llevaba el Macintosh, y esta vez le 
costó 94 jugadas. Reproducimos esta segunda y 
encarnizada lucha. 

Una advertencia final: recuerde que los pro¬ 
gramas de ajedrez tienen más moral que el Al- 
coyano y nunca dan por perdida una partida, 
aunque usted se hubiese retirado antes. 
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sólo el tablero en pantalla, o 
bien el formato clásico, con las 
últimas jugadas hechas, el reloj 
y una serie de informaciones so¬ 
bre las opciones en vigor, que 
incluyen la selección entre ca¬ 
torce niveles. Estos se desdo¬ 
blan en veintiocho por la op¬ 
ción Easy (fácil), que no deja 
pensar al ordenador mientras 
estudiamos nuestra jugada. 
Para uso en análisis de proble¬ 
mas, dispone de otros ocho ni¬ 
veles de estudio de mate (de una 
a ocho jugadas). 

También permite la utiliza¬ 
ción de impresora para reflejar 
el resultado de la partida, im¬ 
primiendo las jugadas según se 
van produciendo o una repre¬ 
sentación del tablero en un mo¬ 
mento dado de la partida. El al¬ 
macenamiento de partidas en 
microdrive permite continuar 
jugadas largas o, mediante la 
opción Replay, analizar alter¬ 
nativas de juego en partidas ju¬ 
gadas anteriormente. 

Muy útil resulta también la 
posibilidad de volver atrás el 



número de jugadas deseado. 
Menos corriente es encontrar la 
opción Next-Best, que hace al 
programa volver atrás una juga¬ 
da y seleccionar el siguiente 
mejor movimiento. Si quere¬ 
mos encontrar alternativas de 
juego en momentos clave, su 
uso resultará muy cómodo, es¬ 
pecialmente al combinarlo con 
la opción Anáfisis, que enseña 
en una línea en la parte inferior 
de la pantalla ls dos o tres juga¬ 
das siguientes y una evaluación 
de la posición. Las opciones 
Hint (Pista) y Best (Mejor) nos 
ayudan a realizar nuestra juga¬ 
da y nos permiten saber qué 
está «tramando» nuestro opo¬ 
nente en la próxima jugada. 

El programa viene dotado de 
casi todas las opciones clásicas 


para este tipo de programas. 
Pero lo verdaderamente sor¬ 
prendente es la calidad de su 
juego. Incluso al nivel 3 (el ele¬ 
gido por defecto), el programa 
muestra una gran solidez en las 
aperturas y un desarrollo co¬ 
rrecto de los finales, que es qui¬ 
zá la parte del juego donde más 
dejan que desear los programas 
de ajedrez por regla general. 

Psion ha prometido realizar 
una versión del mismo progra¬ 
ma para ordenadores mayores, 
como el Macintosh y el IBM 
PC. Este potente programa co¬ 
rriendo sobre un Macintosh 
(bastante más rápido que el QL) 
puede darle un susto a más de 
un aficionado de nivel alto. 

Con el Spectrum el problema 
es demostrar que sirve para algo 
mas que para jugar. Con el QL 
sin embargo sucede lo contra¬ 
rio, y este buen programa es 
sólo el principio. 


Distribuidor en España: Serma 
Monitor utilizado: Nove* NC-1414-CL 
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E XISTIENDO tanta varie¬ 
dad de modelos y precios en 
el mercado, en cuanto a 
joystick se refiere, no hay 
excusa para seguir utilizan¬ 
do las «sufridas» teclas del Spec- 
trum. Si aún así el precio le parece 
excesivo, le proponemos hacerse 
uno «a su medida», con el que po¬ 
der manejar con gran comodidad y 
utilidad, sus programas favoritos, 
seleccionar un menú en un progra¬ 


ma de gestión de forma rápida y 
sencilla, o utilizar programas para 
dibujar gráficos en pantalla. Sólo 
tiene un inconveniente: ¡sus di¬ 
mensiones son superiores a las del 
propio Spectrum! 

La palanca de mando aquí des¬ 
crita ha sido diseñada para estar al¬ 
bergada en una caja de dimensio¬ 
nes anchas, en la cual se han ator¬ 
nillado dos pequeñas planchas de 
plomo y pegado a su base dos tiras 



de goma para así conseguir una ad¬ 
herencia más que suficiente sobre 
cualquier tipo de «terreno». Así se 
evita la molestia de tener que suje¬ 
tar su base con la otra mano o, 
cuando menos, se tiene la sensa¬ 
ción de manejar algo que se parece 
más a un accesorio útil que a un 
juguete. 

El funcionamiento de la palanca 
es muy sencillo. Consiste única¬ 
mente en un eje que, al bascular, 
presiona los pulsadores sobre la 
propia tapa superior de la caja, 
permitiendo la pulsación simultá¬ 
nea de cada interruptor y de otro 
que esté situado perpendicular- 
mente a éste, en función de la posi¬ 
ción de la palanca. 

El joystick consta únicamente de 
5 interruptores (pulsadores) que 
son los que corresponden a las po¬ 
siciones arriba, abajo, derecha, iz¬ 
quierda y disparo, y de una rótula 
que permite el movimiento libre 
de la palanca en todas las posicio¬ 
nes. 

Los materiales utilizados para la 
realización de esta palanca han 
sido: madera de contrachapado de 
















piezas, se pegará una fina placa de 
plástico, o cualquier material liso, 
sobre la parte interior de la tapa 
superior para conseguir que los 
alambres de los pulsadores desli¬ 
cen sin dificultad. Por último, lija¬ 
remos todo el conjunto para obte- 


palanca puede efectuar cualquier 
movimiento en cualquier direc¬ 
ción. Está construida con dos pla¬ 
cas de plexiglás de cinco milíme¬ 
tros que han sido lijadas hasta ob¬ 
tener una cavidad en forma de 
franja semiesférica en cada una de 


Montaje 


Construya su 


tres milímetros, un poco de plásti¬ 
co rígido, tipo plexiglás, un tubo 
de aluminio, cinco pulsadores, un 
conector, el correspondiente cable 
de conexión y algún que otro ele¬ 
mento más, que citaremos durante 
la descripción del montaje. 

Construcción de la caja 

Para comenzar, cortaremos to¬ 
das las piezas de madera de contra¬ 
chapado que constituyen el sopor¬ 
te de la palanca. En total consta de 
18 piezas, incluida la base, que es 
la única pieza que se atornillará a 
todo el conjunto una vez finalizada 
la construcción. Las medidas (en 
centímetros) podremos obtenerlas 
directamente de la figura 5. Así 
pues todas las piezas van pegadas 
excepto la base, que se atornillará. 
Para ello, pegaremos unos taquitos 
de madera en el interior de las ta¬ 
pas laterales de la caja. Una vez 
que se hayan ensamblado todas las 


ner un buen acabado. Un par de 
manos de pintura finalizarán el 
montaje de la caja. 

Construcción de la rótula 

Esta pieza es el «corazón» del 
joystick. ya que, gracias a ella, la 


ellas (Fig. 1). De esta forma, al 
unirse, pueden albergar una esfera 
(en nuestro caso ha sido utilizada 
una canica de plástico) que puede 
moverse o girar con toda libertad 
de movimiento según ios tres ejes 
cartesianos, pero sin poderse salir 
de las dos placas que la sujetan. 

















aprecia un corte esquemático de 
todo el eje. 

En primer lugar atornillaremos 
una placa de plexiglás de tres milí¬ 
metros, cuyas dimensiones pueden 
extraerse de Jas figuras 3 y 4 en la 
base det tornillo, que servirá para 


Construcción y montaje 
del eje 


Una vez finalizada la rótula y fi¬ 
jada ésta a la carcasa, nos guiare¬ 
mos de la figura 2, en la cual se 


soportar los pulsadores. Seguida¬ 
mente, pasaremos el tornillo con 
una tuerca atornillada, sobre el ta¬ 
ladro efectuado en la esfera del 
mismo diámetro que el del tomi¬ 
llo. Fijaremos el tomillo a la esfera 
con otra tuerca y, tras poner cuatro 
o cinco arandelas, atornillaremos 
la palanca de mando, que es un 
tubo de aluminio de ocho centíme¬ 
tros de longitud y dos centímetros 
de diámetro. A éste se la ha pegado 
una pequeña tapa circular de cual¬ 
quier materia para poder fijar la 
tuerca en esta última, sobre la cual 
se atornillará el eje. El tubo tendrá 
un pequeño orificio para poder 
efectuar la salida del cable que va 
conectado al pulsador de disparo. 
Este pulsador irá pegado en la par¬ 
te superior de la palanca con cual- 


Fi gura 2. M oniaje del eje. 





A) PULSADORES 

B) ROTULA 

C) PLACA SOBRE LA OUE SE DESLIZAN 
LOS ALAMBRES DE LOS PULSAOORES 
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quier tipo de resina de dos compo- Para conseguir que la palanca 
nentes, por ejemplo. El otro extre- vuelva a la posición central cada 
mo del cable pasará por otro pe- vez que la soltamos, se utilizarán 
queño orificio en la tapa superior. cuatro muelles que irán fijados 


desde cada lado de la placa, sobre 
la que se fijan los interruptores, a 
la tapa lateral de la caja enfrentada 
correspondiente (Fig. 3). 


Figura 4. Conexión conectar. 



Montaje final 

Por último, sólo nos queda sol¬ 
dar los interruptores a los cables 
que van al conector del joystick, 
según muestra también la figura 3. 

En nuestro prototipo se han 
atornillado en el interior dos pe¬ 
queñas planchas de plomo en la 
base para evitar, en lo posible, el 
deslizamiento. Esto, naturalmente, 
es optativo. 

Tal y como está conectado el 
joystick es absolutamente compa¬ 
tible con cualquiera de los que se 
pueden comprar en el mercado. 

Alberto Piedra 









































































Figura 5. La 
caja consta de 
un total de 18 
piezas, 
incluida la 
base, única 
pieza que se 
atornilla a 
todo el 
conjunto , a 
diferencia de 
las demás que 
van pegadas. 
En esta figura 
.ye pueden ver 
las 

dimensiones 

en 

centímetros de 
las distintas 
piezas que 
componen el 
montaje. 
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y 

Descubrimiento 
de un nuevo 
lenguaje: 


PASCAL 


Y con las matrices , 
finalizamos esta serie 
sobre el PASCAL. 
Esperamos que os haya 
sido útil el 

descubrimiento de este 
ya «viejo» lenguaje. 
Ahora que 
«dominamos» este 
lenguaje, estamos 
preparados para 
comprender los 
programas escritos en 
PASCAL que 
aparecerán en próximos 
números. 
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E n las siguientes páginas que 
componen este artículo, va¬ 
mos a explicar otro tipo de 
almacenamiento de datos. 
Son las matrices o tablas. 
Cuando manejamos variables, 
normalmente se nos puede presen¬ 
tar un problema. Solamente pode¬ 
mos acceder a un valor de la mis¬ 
ma durante la ejecución de un pro¬ 


grama. Sin embargo, es posible que 
deseemos tener una colección de 



valores en memoria para una mis¬ 
ma variable. Mediante la estructu¬ 
ra de tablas lo podemos conseguir. 

Una definición formal de matriz 
seria un conjunto ordenado de ele¬ 
mentos tal que un conjunto de en¬ 
teros nos definen la posición de los 
elementos dentro de la misma. 

Por tanto, como vemos, tenemos 
la posibilidad de acceder directa- 




















mente a un elemento conociendo 
la posición que éste ocupa dentro 
de nuestra tabla. Pero pasemos di¬ 
rectamente a las matrices en Pas¬ 
cal. Las tablas son llamadas 
ARR AY. y su principal caracterís¬ 
tica es que todos sus componentes 
han de ser del mismo tipo, al que 
llamaremos tipo base. 

En general y teóricamente po¬ 


dremos tener matrices de «n» di¬ 
mensiones. Entrando ya en la par¬ 
te de declaración, es necesario in¬ 
dicar el nombre de la tabla, los ex¬ 
tremos inferior y superior que nos 
indican la dimensión, y el tipo de 
los elementos que la componen. 

Así en general declararemos una 
tabla de la siguiente forma: 

VAR 


nombre : ARRAY [i! ,.¡n, jL.jn] 
OFTipo 

Ejemplos de declaración de ta¬ 
blas podrían ser: 

VAR 

meses: ARRAY [1..I2] OF 
CHAR: 

tabla: ARRAY [1..3, 1..3] OF 
1NTEGER: 

Como ya sabemos mediante de¬ 
claraciones TYPE también pode¬ 
mos designar tablas. 

Otra forma de expresar los ejem¬ 
plos anteriores podría ser: 

TYPE 

Tmeses: ARRAY [1 ..12] OF 
CHAR; 

Ttabla: ARRAY [1..3, 1..3] 

OF INTEGER: 

VAR 

meses: T meses; 

tabla: Ttabla; 

Por otra parte también es posi¬ 
ble dar un nombre a un intervalo 
(dimensión) mediante declaracio¬ 
nes TYPE, 

TYPE 

dimensión: 1..12 

Tmeses: ARRAY [dimen¬ 
sión] OF CHAR; 

VAR 

meses: T meses; 

La figura 1 ilustra el diagrama 
sintáctico de una variable de tipo 
ARRAY, SUBINDICE y ELE¬ 
MENTO. 

TIPO ARRAY: 

ARRAY 

[ . 1 

TIPO SUBINDICE 
OF 

TIPO ELEMENTO 
OF 

TIPO SUBINDICE: 

TIPO ORDINAL 
TIPO ELEMENTO: 

TIPO 

Veamos ahora un ejemplo para 
el manejo simple de una tabla. Es¬ 
cribiremos un programa que pri¬ 
mero Mena una tabla con una pala¬ 
bra. para luego escribí ría al revés, 

Utilizaremos instrucciones FOR H 
para llenar la tabla y escribirla H 
















siendo uno de ellos descendente 
(ver programa 1). 

Como vemos es un programa 
muy sencillo. Vamos a complicar¬ 
lo un poco, generalizándolo para 
«n» letras. Supongamos que en 
nuestro programa ese «n» es 80 
(programa 2). 

Como se puede observar, el pro¬ 
grama es prácticamente similar al 
anterior. Solamente utilizamos la 
variable «último» para detectar 
dentro de la tabla cuál es el último 
carácter de la línea. Para ello ini- 
cializamos dicha variable a 8! y 
vamos decrementándola hasta en¬ 
contrar un carácter que sea distin¬ 
to de BLANCO. Una vez encon¬ 
trado éste, mediante el siguiente 
FOR descendente, escribimos la 
matriz invertida utilizando nues¬ 
tro índice. 

Hemos de insistir en que cual¬ 
quier tipo ordinal puede elegirse 
como tipo subíndice, ya sea char, 
boolean, integer, real, tipo enume¬ 
rado o tipo subrango. De esta for¬ 
ma las siguientes declaraciones de 
tablas serían sintácticamente co¬ 
rrectas: 

VAR 

palabra: ARRAY [CHAR] OF 
INTEGER; 

siglo: ARRAY [1800.. 1899] OF 
REAL; 


El tipo subíndice por tanto de¬ 
termina el número de elementos 
de la tabla. 

Vamos a ver ahora que median¬ 
te una instrucción podemos mani¬ 
pular el conjunto formado por una 
tabla. Lo podremos conseguir me¬ 
diante la asignación entre tablas. 
Para poder hacer una asignación 
entre dos tablas, es necesario que 
sean de características semejantes. 
Supongamos el siguiente ejemplo: 
Sean las matrices tabla 1 y tabla 2 
definidas de la siguiente forma: 


TYPE 

TIPO: ARRAY [1..12] OF 
CHAR; 

VAR 

TABLA 1. TABLA2; TIPO; 


En estas dos tablas podremos 
utilizar una sentencia del tipo: 

TABLA1 :=TABLA2: 

de tal forma que a cada elemento 
delaTABLAl le asignamos el ele¬ 
mento correspondiente de la TA- 


_ v 
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BLA2, quedando las dos tablas 
¡guales después de la asignación. 
Hemos manipulado el corjunto de 
elementos de las tablas al mismo 
tiempo. 

Hasta ahora hemos estado utili¬ 
zando ARRAYS de una sola di¬ 
mensión. también llamados vecto¬ 
res. Pero también podremos defi¬ 
nimos ARRAYS multidimensio- 
nales, dependiendo la máxima di¬ 
mensión del compilador que utili¬ 
cemos. 

Una definición de array multidi- 
mensional será: 


VAR 

tabla: ARRAY [i..jj OF 
ARRAY [k..l] OFTIPO; 

La forma abreviada de expresar 
la anterior declaración sería: 

VAR 

tabla: ARRAY [i..j, k..l] OF 
TIPO; 

Para comprender un poco mejor 
las matrices multidimensionales, 
vamos a realizar un sencillo pro¬ 
grama que sume dos tablas de 2 di¬ 
mensiones, guardando el resultado 
de dicha suma en otra tabla. 

Haremos la lectura, escritura y 


suma en bloques diferentes del 
programa para que se vea mejor la 
estructura. Por supuesto este pro¬ 
grama se podría simplificar mucho 
más (ver programa 3). 

Por último, comentar que en al¬ 
gunos compiladores es necesario 
inicializar las tablas a ceros o blan¬ 
cos dependiendo del tipo, por si al 
rellenar las matrices no completa¬ 
mos todos sus elementos, y los va¬ 
cíos contengan cosas que no nos 
interesan y que ya estaban con an¬ 
terioridad en memoria. 

José Ramón Herreros 


PROGRAMA I 


PROGRAM usrresj 
VAR 

letras: ARRAY El.. 103 OF CHAR; 
índice: 1NTEGER; 

BEGIN 

READLN; 

FÜR indiee:=l T0 10 DO 
READÍletras!Índice]}; 

FOR i nd¡ ce ; = 1 0 DQUINTO 1 DO 
WRITE Í1e tras!indice]} 

END. 


PROGRAMA 2 


P SÍ 0G p'Hf 1 I I q r r A =■ i 

CONST 

r i-; p. o ; ■ * Nuri E E j D £ Crt RA CT ERE * T 0 T A LES * ¡ 
BLANCO ' í 

'AR 

'■ r=..=.: aRRav Í1..NCT] np C HhR : 

índice! irjTEÜEf-: 
j i ti me:J NTE0EP¡ 

BEGIN 

REaíDLN? 

Ffjk indica;-1 TO MCT C’Ü 
P EpíD ■ 1 e t r & s. i \ o d \ c e J > 
o \ t[mo í-Bl : 

REF'EAT 

o ! t ¡ mo : —u 1 t irTic-1 
'jr iT I L í * t r así u : 1 t i mc<3 ■ ■ BLANCO ; 

FOP md: - e:=ul Nmo DÜWNTO 1 DO 
1 ■ 1 RIT E 1 1 e t r a = I i n d i c e 1 1 

ENE. 


PROGRAMA 3 


PROGRAM SUMAR; 

UAR 

A, B,SUMA! ARRAY ti..3,1..31 OF REAL; 
I,JiINTEGER; 

BEGIN < *PROGRAMA PRINCIPAL») 

FOR I:=1 TO 5 DO 
BEGIN 

POR J:=l TO S DO 
BEGIN 

READCAt 
READCBtI,J]) 

END 

£ND; 

FOR 1:=1 TO 5 DO 
BEGIN 

FOR J:=1 TO 5 DO 

SUMAtl , J]=AC I , JI+BC I ,..n 

END; 

FOR I!=1 TO 5 DO 
BEGIN 

FOR J:=1 TO 5 DO 

LtRITECSUMAt I , J] > 

END 

END.(«PROGRAMA») 



























Este programa tiene un origen 
muy peculiar: nació en un Com- 
modore en la Escuela de Ingenie¬ 
ros de Zaragoza. Su autor, Tomás 
Plou, abandonó sus estudios de 
Ciencias Empresariales porque 


«para trabajar hay que tener expe¬ 
riencia y con un título no es sufi¬ 
ciente». Ahora se prepara las opo¬ 
siciones a informática de la Seguri¬ 
dad Social: «Si hay que trabajar, 
mejor hacerlo en lo que a uno te 


gusta, y la informática es apasio¬ 
nante. sobre todo estos temas de la 
quinta generación, la inteligencia 
artificial». 

En el cursillo de BASIC de la Es¬ 
cuela de Ingenieros nació, como 
decíamos, este programa. Primero 
para el Commodore y posterior¬ 
mente trasladado al Spectrum. «El 
mayor problema fue la matriz de 


















30 CLS 

31 LET M*Os LET N=0 

40 PAPER 5: BORDER 6: INK 2 

42 PRINT AT 6,3;"MUEVES CON LA 
S TECLAS 5~8" 

43 PRINT AT B,3;"0= AYUDA" 

44 PAUSE 200 

45 CLS 

50 DIM L(12,12) 

55 FOR 1=1 TO 12 
60 FOR J=1 TO 12 
65 READ L(I,J) 

69 NEXT J 

70 NEXT I 

71 DATA 1,1,1,1,1,1,1,1,2,1,1, 

1 

72 DATA 1,0,O,O,O,O,1,0,0,1,0, 
i 

73 DATA l v O,1,0,1,0,0,0,1,0,O, 

1 

74 DATA 1,0,1,0,0,0,1,1,0,0,1, 

1 

75 DATA 1,O,1,0,1,O,O,O,O,1,0, 

1 

76 DATA 1,0,1,0,1,0,1,1,0,O,O, 


77 DATA 1,0,O,O,O,O,1,0,0,1,0, 

1 

78 DATA 1,1,0,1,0,1,0,0,1,0,0, 

1 

79 DATA 1,0,0,0,0,O,1,0,0,O,1, 

1 

80 DATA 1,0,1,0,1,0,O,O,1,0,0, 

1 

81 DATA 1,0,0,0,0,0,1,0,0,0,1, 

1 

82 DATA 1,1,1,1,1,1,1,1,1,1,1, 

1 


datos del laberinto. Para explorar 
la matriz tuve que crear un algorit¬ 
mo que se puede ver en la línea 
540. Dependiendo de la orienta¬ 
ción, había que acudir a las mis¬ 
mas subrutinas de dibujo del labe¬ 
rinto. Aún así no tuve memoria 
suficiente y tuve que reducir algu¬ 
nas sentencias.» 

Autor Tomás Plou 16K 
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110 IF L(1,J)=1 THEN 60 T0 104 
120 LET S=INT (4*RND>+1 

130 SO TO 136 

150 IF INKEY*="'* THEN 60 TO 15 
O 

131 LET Q*“INKEY*a IF Q*<>"5" A 
ND Q*< > M 6“ AND Q*< >"7" AND Q*<>" 
8" AND Q*O"0 M THEN 60 TO 150 

152 LET Q=VAL INKEY*: CLS 

134 IF Q< >5 THEN 60 TO 158 

135 LET S=S-1: IF S<1 THEN LET 
3=5+4 

156 60 TO 170 




153 IF QOB THEN 60 TO 164 
160 LET S=S+li IF S>4 THEN LET 
S-S-4 

162 GQ TO 100tS+l15 
164 IF Q*ó THEN GQ TO 105+100* 
S 

166 IF Q=7 THEN GO TO 110+100* 
S 

168 IF Q=0 THEN 60 SUB 700 
170 60 TO 115+100*S 
205 IF L <1+1,J>< >t THEN LET 1 = 
I+ls GO TO 214 
207 60 SUB 650: 60 TO 214 
210 IF Ld-ljJXM THEN LET I» 
I-l¡ GO TO 214 
212 GO SUB 650 
214 GO SUB 680 


222 IF L (I -1, J)=2 THEN LET N=1 
225 FOR Y=0 TO T-l 
230 FOR Z=-l TO 1 STEP 2 
235 LET A=1000+100*Y+10*(Z+l) 
240 IF L(I—Y,J+Z>=1 THEN GO SU 
8 A: GO TO 250 
245 GO SUB A+10 
250 NEXT Z: NEXT Y 
255 GO TO 600 

L (1,13-1)01 THEN LET J* 
Tü 314 

SUB 650: 60 TO 314 
L(I,J+l)< >1 THEN LET'J» 
TO 314 

SUB 650 
T=i TO 6 

IF L(I,T+J)< >1 THEN NEXT T 
IF L<1-1,J+l)«2 THEN LET M 


THEN LET 1= 
TO 414 

THEN LET 1= 


FOR Y=0 TO T-l 

FOR Z=*-l TO 1 STEP 2 

LET A=1000+100*Y+10*(Z+l) 

IF L <I+Z,J+Y)>=1 THEN 60 S 
GO TO 350 
GO SUB A+10 
NEXT Z: NEXT Y 
60 TO 600 
IF L (I-1, J ) < >1 
60 TO 414 
60 SUB 650: 60 
IF LÍI+1,J)<>1 
60 TO 414 
60 SUB 650 
60 SUB 680 
FOR T=1 TO 6 
IF L(I+T t JX>l 
FOR Y=0 TO T-l 
FOR Z=1 TO -1 STEP -2 
LET A=1000+100*Y+10* <1—Z) 

IF L(I+Y,J+Z)=1 THEN 60 SU 
60 TO 450 
60 SUB A+ÍO 
NEXT Z: NEXT Y 
60 TO 600 

IF L(I,J + l)<>1 THEN LET J = 
60 TO 514 


THEN NEXT T 







507 GO SUB 650: GQ TD 514 
510 IF L(I,J—1)< >1 THEN LET J- 
J-l: GO TO 514 
512 GD SUB 650 
■515 FOR T=1 TO 6 
520 XF L í I, J—T) OI THEN NEXT T 
525 FOR Y=0 TO T-l 
530 FOR 2=1 TO -1 STEP -2 
535 LET A=1000+100*Y+10#<1-Z> 
540 IF L<I+Z,J-Y>>=i THEN GO S 
UB A¡ GO TO 550 
-545 GO SUB A+10 
550 NEXT Zj NEXT Y 
600 GO SUB 1600+104T 
610 GO TO 150 

650 F'RINT AT 20,9: FLASH 1;"N0 
HAY PASO": RETURN 
680 IF L(I,J)=2 THEN GD TO 180 

O 

690 RETURN 

700 LET D= ( (ABS i I-1) ) -T2+ < ABS í 
J-9) > A 2>'".5: PRINT AT 21,3; "DIST 
.= " ; INT <D*10+.5)/10: RETtJRN ■ 

1000 PLOT 0,0: DRAW 7,7: PLOT O, 
175: DRAW 7,-2: IF Y=T-1 THEN D 
RAW 0,-166 

1001 RETURN 

1010 PLOT 0,8: DRAW 7,0: IF Y<T- 
1 THEN DRAW 0,166 

1011 PLOT 0,173: DRAW 7,0: RETUR 
N 

1020 PLOT 255,0: DRAW -7,7: PLOT 
255,175: DRAW -7,-2: IF Y=T-1 T 
HEN DRAW 0,-166 


1021 RETURN 

1030 PLOT 255,8: DRAW -7,0: IF Y 
<T—1 THEN DRAW 0,166 

1031 PLOT 255.173: DRAW -7,0: RE 
TURN 

'1100 PLOT 8,8: DRAW 55,55: PLOT 
8,173: DRAW 55,-13: IF Y=T-1 THE 
N DRAW 0,-96 

1101 IF M=1 AND S=2 THEN PLOT 2 
0,20: DRAW O,136: DRAW 35,-4: DR 
AW 0,-96 

1102 LET M=0: RETURN 

1110 PLOT 8,8: DRAW 0,166: PLOT 
8,64: DRAW 55,0: IF Y<T-1 THEN 
DRAW 0,96 

1111 PLOT 8,159: DRAW 55,0: RETU 
RN 

1120 PLOT 247,8: DRAW -55,55: PL 
OT 247,173: DRAW -55,-13: IF Y=T 
-1 THEN DRAW 0,-96 

1121 RETURN 

1130 PLOT 247,8: DRAW 0,166: PLO 
T 247,64: DRAW -55,0: IF YCT-l T 
HEN DRAW 0,96 

1131 PLOT 247,159: DRAW -55,0: R 
ETURN 

1200 PLOT 64,64: DRAW 30,30: PLO 
T 64,159: DRAW 30,-7: IF Y=T-1 T 
HEN DRAW O, -58 

1201 RETURN 

1210 PLOT 64,64: DRAW 0,96: PLOT 
64,94: DRAW 30,0: IF Y<T-1 THEN 

DRAW 0,58 

1211 PLOT 64,152: DRAW 30,0: RET 


GOSANEZ 
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URN 


1220 PLOT 191,04: DRAW -30,30: P 
LOT 191,159: DRAW -30,-7: IF Y=T 
-1 THEN DRAW 0,-58 

1221 RETURN 

1230 PLOT 191,64: DRAW 0,96: F'LO 
T 191,94: DRAW -30,0: IF Y<T-1 T 
HEN DRAW 0,58 

1231 PLOT 191,152: DRAW -30,0: R 
ETURN 

1300 PLOT 94,94: DRAW 18,18: PLO 
T 94,152: DRAW 18,-5: IF Y-T-l T 
HEN DRAW 0,-35 

1301 RETURN 

1310 PLOT 94,94: DRAW 0,58: PLOT 



94,112: DRAW 18,0: IF Y<T-1 THE 
N DRAW 0,35 

1311 PLOT 94,147: DRAW 18,0: RET 
URN 

1320 PLOT 161,94: DRAW -18,18: P 
LOT 161,152: DRAW -10,-5: IF Y=T 
-1 THEN DRAW 0,-35 

1321 RETURN 

1330 PLOT 161,94: DRAW 0,58: PLO 
T 161,112: DRAW -18,0: IF YCT-l 
THEN DRAW 0,35 

1331 PLOT 161,147: DRAW -18,0: R 
ETURN 

1400 PLOT 112,112: DRAW 10,10: P 
LOT 112,147: DRAW 10,-2: IF Y=T- 
1 THEN DRAW 0,-23 

1401 LET V«ls RETURN 


1410 PLOT 112,112: DRAW 0,35: PL 
OT 112,122: DRAW 10,0: IF Y<T-1 
THEN DRAW 0,18 

1411 PLOT 144: DRAW 10,0: RE 

TURN 

1420 PLOT 143,112: DRAW -10,10: 
PLOT 143,147: DRAW -10,-2: IF Y= 
T-l THEN DRAW 0,-23 

1421 RETURN 


1430 PLOT 143,112: DRAW 0,35: PL 
OT 143,122: DRAW -10,0: IF Y<T-1 

THEN DRAW 0,22 

1431 PLOT 143,144: DRAW -10,0: R 
ETURN 

1500 PLOT 122,122: DRAW 6,6; DRA 

W 0.15: DRAW -6,1: RETURN 

1510 PLOT 122,127: DRAW 6,0: PLO 

T 122,143: DRAW 6,0: PLOT 122,12 

3: DRAW 0,22: RETURN 

1520 PLOT 133,122: DRAW -6,6: DR 

AW 0,15: DRAW 6,1: RETURN 

1530 PLOT 133,127: DRAW -6,0: PL 

OT 133,143; DRAW -6,0: PLOT 133, 

123: DRAW 0,22: RETURN 

1610 PLOT 8,8: DRAW 239,0: PLOT 

8,173: DRAW 239,0 

1613 IF N=1 THEN LET N=0: PLOT 
56,8: DRAW 0,152: DRAW 135,0: DR 
AW - 0,-152: PRINT AT 9,13; FLASH 

1;"SALIDA" 

1614 RETURN 

1620 PLOT 64,64: DRAW 127,0: PLO 
T 64,159: DRAW 127,0 
1623 RETURN 

1630 PLOT 94,94: DRAW 67,0: PLOT 
94,152: DRAW 67,0 
1633 RETURN 

1640 PLOT 112,112: DRAW 31,0: PL 
□T 112,147: DRAW 31,0 
1643 RETURN 

1650 PLOT 122,122: DRAW 11,0: PL 
OT 122,144: DRAW 11,0 
1670 RETURN 

1900 CLS í ■FflP' T- ' 7 

1810 PRINT AT 10,8; INK I;"YA HA 
S SALIDO": BEEP .4,7*1: BEEP .2, 
3*1 

1820 NEXT I 














1830 PRINT AT 13,10; FLASH 1;"EN 
HORABUENA": PAUSE ISO 
1840 PRINT AT 15,5;"DESEAS VOLVE 
R A PROBAR?" 



1850 IF INKEY*-"" THEN SO TO 18 50 
1860 IF INKEY$="S" OR INKEY*="s" 
THEN CLS : GÜ TO 100 
1870 STOP 





El sistema compacto que reúne en una sola unidad los siguientes elementos: 


• Unidad de disco ultramoderna de 3,5" con 180 K. • Salida para monitor monocromo. 

• Interface paralelo Centronics. • Repetición del bus trasero del Spectrum. 

• Interface de joystick tipo Kempston. • Alimentación interna de todo el sistema. 


FACILMENTE AMPLIABLE A 360 Kybtes. 


PROGRAMAS DISPONIBLES O DE PROXIMA APARICION 


• Contabilidad PNC (500 cuentas/4000 asientos) • Facturación 

• Tratamiento de textos • Nóminas 

• Cambio de Moneda • Base de Datos 

• Control de stocks 


PODEMOS PASARLE SU PROGRAMA FAVORITO A DISCO 

DE VENTA EN LOS MEJORES ESTABLECIMIENTOS DE INFORMATICA 
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En bastantes ocasiones, a ía hora 
de hacer un programa, hemos teni¬ 
do que recurrir a crear una serie de 
caracteres, símbolos o dibujos que 
no se encontraban en el seí usual 
de nuestro ordenador. Una ñ. una 
raya diagonal, o incluso un peque¬ 
ño alienígena nos ha quitado algu¬ 
na hora de sueño en algún momen¬ 
to dado de nuestra carrera como 
programadores. Tras un intenso 
visionado al manual de nuestro 
Spectrum y haciendo uso de algún 
programa, hemos conseguido lo 
que buscábamos. Para muchos ya 
es una rutina el tener que diseñar 
algún carácter especial. 

Disponemos de 21 caracteres, 
llamados gráficos, libres para ha¬ 


cer con ellos toda clase de engen¬ 
dros y perversidades. Pero a veces 
este número es pequeño. Necesita¬ 
mos más. 

El programa que os proponemos 
a continuación podrá salvaros de 
este inconveniente en bastantes as¬ 
pectos y situaciones. En primer lu¬ 
gar vamos a analizar línea por lí¬ 
nea la forma en que está programa¬ 
do para una mejor comprensión de 
lo que sucede en las entrañas del 
ordenador cuando deis al RUN 
(tecla de muchas alegrías y decep¬ 
ciones). 

Línea 1: 

Colores del borde, papel y tinta. 
El OVER O es para asegurarnos 
este estado en todo el programa 


menos en las líneas que nos intere¬ 
se meterlo. 

Línea 5: 

Tres siniestros POKES. El pri¬ 
mero hace que al pulsar cualquier 
tecla suene un corto pitido (varia¬ 
ble del sistema P1P). Los otros dos 
corresponden a la variable 
CHARS que es la que determina 
en qué dirección se empieza a leer 
el conjunto de 256 caracteres que 
componen el set del Spectrum. 
Línea 10: 

Reservamos memoria a partir de 
la dirección 64600. Esto lo hace¬ 
mos para que el programa en BA¬ 
SIC no se nos cuele en estas direc¬ 
ciones en caso de que sea excesiva¬ 
mente largo. 


1 BOEDER O: PAPER O: INK 7¡ 
□VER Os CLS 

5 PüKE 23609,75s PÜKE 23606,0 
c POKE 23607,60 
10 CLEAR 64599 

12 FOR n-0 TO 50: PRINT INK 1 
+RND* *6;"EDISET "}i NEXT ns PR 
INT AT 17,6; José Carlos Tomas 

II 

15 LET di-1: LET c*=" "t DIM a 
*<8,8>i LET xl-Os LET s«64600s L 
ET x=0: LET y=0 

16 FQR m«l TO 8s FOR n*i TO 8: 
LET a*(m,n>«STR* O: NEXT ns NEX 

T m 

17 REM COPIA ROM en RAM 64600 

20 FOR a-1 TO 767 
30 LET 1*PEEK <15616+a> 

35 PRINT AT 19,7} OVER 1* W ESPE 
RA 30 SEGUNDOS" 

40 POKE s+a,1 
50 NEXT a 

52 FOR n-1 TO 5: BEEP .1,45: N 
EXT n 

55 £0 SUB 300 

57 LET x2«0i LET y2»0 


60 GO TO 1000 
300 REM PANTALLA 
305 CLS 

307 PRINT AT 0,0?" í "j.;" 

* * Y. & ’ ()* + ,-. /"}AT 1, 

O* "O 1 2 3 4 5 6 7 8 9: j< = > 
?"}AT 2,0*"0 ABCDEFGHI 
J K L M N Ü";AT 3,0;"P Q R S T U 
V W X Y 2 i R ¿ ~ „"íAT 4,0* M # 
abcde-f gh i j k 1 mno";A 
T5,0*"p qr st uvwx y z ” fí 
> ; AT 6,0* " R B C Ó* e F G H 

I K l_ M N O P" * AT 7,0}" Q R 

S T U" 

309 FOR n-10 TO 18: PRINT AT n, 
2}" ": NEXT n: PRINT AT 

8, 12} * FOR m=*l TO 8: FOR n=l 
TO 8: LET a*<m,n)“STR* Oí NEXT n 
i NEXT m 

310.FOR n-16 TO 90 STEP 8: PLOT 
n,31I DRAM BRIGHT 1*0,64: NEXT 
n t 

315 FOR n-31 TO 96 STEP 8: PLOT 
16,ni DRAW BRIGHT 1;64,0: NEXT 
n 

320 PLOT 8,23: DRAW BRIGHT 1*8 
0,0c DRAW , BRIGHT 1*0,80: DRAW 













Bula del comprador de lodospecmnt 





Oficina RENOVACION EN MARCHA. $ A, 

0/ Espronceda, 34, 28003-MADR1D 
Tfno. (91) 441 24 78 

REMSHOP 1 

Gal íleo. 4 28015 MADRID 
Tfno. (91) 445 28 08 

REMSHOP 2 

C/ Dr. Gástelo, 14, 23008 MADRID 
Tfno. (91) 274 98 43 

REMSHOP 3 

C/ Modesto La fu te, 33, 2B0Ü3 MADRID 
Tfno (91) 233 83 19 

REMSHOP BARCELONA 

C/Muntañer 55 - 0804 BARCELONA 
Tfno (93) 253 26 18 

REMSHOP LAS PALMAS 

C/ General Mas de Gamindez. 45. LAS PALMAS 
Tfno. (920) 23 02 90 


ELECTRONICA 


^SANDOVALsa 


DISTRIBUIDORES DE: 
COMMODORE-64 
ORIC-ATMOS 
ZX SPECTRUM 
SINCLAIR ZX 81 
ROCKWELLJ-AIM-65 
DRAGON-32 
NEW BRAIN 
DRAGON-64 
CASIO FP-200 


ELECTRONICA SANOOVAL, S. A 
C/ SANOOVAL. 3, 4, 6. 28010-MADRlb 
Teléfonos: 445 75 58 - 445 76 00 - 445 18 70 
447 42 01 

C/ SANOOVAL. 4 y 6 
Centralita 445 18 33 {8 lineas) 


CLUB DEL JUEGO 


COMPRA — VENTA 
PROGRAMAS DE OCASION 
ZX 16-48K 

Entre otros: Space Raiders, Time Gate, Fro- 
gg¡, Billar Americano, Harrier Attak, Figther 
Pilot, Túnel 3 D, Styk, Scuba Dtve, Base 
Datos, Ajedrez Cirus y 600 títulos más, píde¬ 
nos el tuyo. 


Por sólo 900 pías, más gastos de envío, 
puedes conseguir tu programa preferido, ga¬ 
rantizados y comprobados. 


Pídenos gratis nuestro catálogo de pro¬ 
gramas, 


Rellena este cupón: 

Deseo recibir contra reembolso: 

Nombre del programa .... 


ME LO ENVIAN A: 

D. 

Calle .. 

Población . 

Teléfono (si tienes) ,, 


ENVIAR A: CLUB DEL JUEGO 
Apadado Correos 34.155 BARCELONA 



CURSO DE CONTABILIDAD 
PARA P y M EMPRESAS 


i 

EN ZX SPECTRUM 

) 

- 

Libros Oficiales Contabilidad 


- 

Diarios. Inventarios, Balances, etc. 


- 

Plan General Contable 


CENTRO DE ESTUDIOS: SI M A.VS 

c/. Desengaño, 12 - 3.°-3 28004 Madrid 1 

L. 

Telfs.: 221 31 49 221 3835 



CAMAFEO .nc 



CASSETTES 
DE CALIDAD PROBADA 
PARA ORDENADORES 


C-3 pías 
C-íQ 2Q9 pías 
C-15 219 otas 
C-2Q 229 pías 


i 393 ptai 
1 ptas 

1 pías. 

1,502 plá& 


3.&-BÍ tuas 
3 76? pías 

3 94? pías 

4 \2? pire. 


Libre de gastos de envío contra reembolso correos 

CAMAFEO.Dep-03 

José Lázaro Galdíano, 1. 28036 Madrid. 


APRENDE CODIGO MAQUINA 

CURSO INTENSIVO EN JULIO (TODOS 
LOS NIVELES) 

[ - GRUPOS MUY REDUCIDOS 
Atención directa al alumno 
OBSEQUIO DE PROGRAMA ENSAMBLADOR i 
TAMBIEN CURSO AVANZADO ÜE BASIC f 
Para información y reserva de plazas 
Dirigirse a: 

J.C. - Informática 
C/ Conde de Aranda, n a 6-3 D deha 
-JUNTO PUERTA ALCALA- 
Telfs: 419.82.72 435.07,58 

INFORMATE DE AYUDAS Y 
SUBVENCIONES 


ANUNCIESE 

MADRID 

HIlUIUUItwE 

nnr 

1 (91)7339662 

|I(JI 

BARCELONA 

MODULOS 

(93)3014700 

















































reúnas 



Línea 12: 

Carátula de presentación con la 
palabra EDISET con tinta aleato¬ 
ria (INK 1 + RND*6). 

Línea 15: 

Definimos diversas variables. 
Línea 16: 

Definimos por medio de dos bu- 
bles la matriz a$. STR$ convierte 
números en cadenas por lo tanto 
todos los valores de esta matriz son 
iguales a «O». 

Línea 20 a 50: 

Copiamos e! juego de caracteres 
de la ROM a las posiciones de me¬ 
moria de RAM 64600 en adelante. 
Leyendo con PEEK y metiéndolo 
en la RAM con POKE. La frase 
ESPERA 30 SEGUNDOS con 
O VER 1 hace que ésta parpadee de 
forma rápida sin ser un FLASH. 
Línea 52: 


Aviso de final de copia. 

Línea 53: 

Dos de los POICES siniestros 
cambian de valor. Ese nuevo valor 
resulta ser la nueva dirección don¬ 
de el ordenador leerá el set de ca¬ 
racteres. ¡Exacto! Ahora todos los 
símbolos, letras y demás serán leí¬ 
dos de la RAM, la cual, nosotros, 
podemos modificar a nuestro pla¬ 
cer. 

Línea 55: 

Saltamos a la subrutina 300. 
Línea 57: 

Definimos dos variables para el 
movimiento del cursor. 

Línea 60: 

Saltamos a la línea 1000. 

Línea 300 a 330: 

Subrutina para dibujar la panta¬ 
lla principal de trabajo. En princi¬ 
pio la línea 307 tenía unos bucles 


para «printar» en pantalla todos 
los caracteres (FOR n=32 TO 
127:PRINT CHR$ n; “”;:NEXT 
n) pero haciéndolo así, tal como 
está, la impresión es mucho más 
rápida. 

Línea 600 a 699: 

Estas líneas son en realidad un 
programa aparte que permite di¬ 
bujaren una rejilla, punto a punto, 
nuestros nuevos símbolos o modi¬ 
ficar los ya existentes. Posee sus 
propias subrutinas de movimiento 
de cursor totalmente independien¬ 
te de la parte principal del progra¬ 
ma. 

Línea 605: 

Pitido de aviso de entrada en 
esta opción. Cambiamos de nuevo 
los famosos POK.ES para imprimir 
por pantalla los valores en decimal 
de la matriz aS con la expresión 


BRIGHT 1;-80,Oí DRAW BRIGHT IjO 
,-80 

325 PLOT 151,88* DRAW 24,0* DRA 
W 0,24* DRAW -24,0* DRAW 6,-24 

327 POKE 23606,0* POKE 23607,60 
* POR n*l TO 8: PRINT AT n+9,12| 
VAL ("BIN "+a$<n,l TO 8>) j " 

NEXT n* POKE 23606,88* POKE 2360 
7,251 

330 RETURN 

600 REM Dibuja en rejilla 

605 BEEP .1,30* POKE 23606,0* P 
OKE 23607,60: FOR n=l TO 8í PRIN 
T AT n+9,12(VAL ("BIN "+a*(n,l T 
0 8)>* NEXT n 

610 LET x *10* LET y«2 

620 PRINT AT 20,Oj "camtoiar , ¡v 
olvert barra 

II t 

621 LET wl-10* LET w2=17: LET w 
3*9* LET w4“2 

622 IF in OR es THEN GO TO 650 

623 POKE 23606,88* POKE 23607,2 
51 

625 IF di«1 THEN PRINT AT 8,12 

(C* 

650 LET e*»INKEY* 

651 PRINT BRIGHT 1$ OVER 1fAT 
x,ys"Bf 


652 IF e$=CHR* 11 THEN GO SUB 
800 

654 IF e$=CHR$ 10 THEN GO SUB 
810 

656 IF e*«CHR* 9 THEN GO SUB 8 
20 

658 IF e$=CHR* 8 THEN Gü SUB 8 
30 

665 IF e$="," THEN PLOT OVER 
1?y + 94,x+121-(x*2): PRINT BRIGH 
T 1; OVER 1; AT x, y;"W¡ BEEP .05 
,30: GO SUB 700 

670 PRINT BRIGHT 1; OVER 1; AT 

x,ys" mr 

675 IF e$-"v" THEN LET di^Os G 
O TO 1000 

680 IF e*=»"b" THEN LET di=i: L 
ET c*=" "* PRINT AT B,12;c*: GO 
SUB 309 

685 POKE 23606,0* POKE 23607,60 
: PRINT AT x, 12; VAL ("BIN "+a4(x 
-9,1 TO 8))*" "* POKE 23606,88: 

POKE 23607,251 

699 GO TO 650 

700 IF a$ (x-9, y-i > =*STR$ O THEN 

LET a*(x-9,y-l)-STR* 1: RETURN 

705 IF a$(x-9,y-1)=STR4 1 THEN 

LET a*(x-9,y-1)=STR$ O: RETURN 

800 IF x<*wl THEN RETURN 















¡APROVECHA AL MAXIMO TU SPECTRUM! 

Ahora, a tu alcance, dos obras fundamentales para que podáis sacar todo el partido posible a vuestro ordenador. 



Esta publicación está diseñada para guiar al nuevo 
usuario del ZX Spectrum desde el momento que el 
ordenador se conecta hasta conseguir una base sufi¬ 
ciente de ia programación BASIC. 

Incluye temas como: 

• Introducción al teclado. 

• Instrumentos útiles para la programación. 

• Uso de comandos fáciles. 

• Como construir un programa. 

• Técnicas de programación. 

• Aplicaciones prácticas. 


lOOpogs. - 750 PTAS. 



Este libro, escrito en estilo ameno y práctico, está 
dirigido a todos aquellos usuarios que han dejado 
atras la etapa de los juegos y necesitan adentrarse 
en el fabuloso mundo de la programación 
El temario incluye: 

• Reglas y herramientas del BASIC. 

• La técnica de los organigramas. 

• Cómo planificar un programa. 

• El mundo de las rutinas. 

• Variables y'cadenas. 

■ Funciones matemáticas usuales. 
lOSpngs. - 750 PTAS. 


CUPON DE PEDIDO 

Recorta este cupón debidamente cumplimentado y envíelo a INFODIS, S. A. C/ BRAVO MURILLO, 377-5 ° A - 28020 MADRID 

Si, envíenme el (los) libro(s) gue a continuación detallo al precio de 750 pías, libro, más 100 ptas en concepto de 
gastos de embalaje y envío. 

El importe lo abonare: POR CHEQUE □ CONTRAREEMBOLSO □ CON TARJETA DE CREDITO (VISA □) 
(AMERICAN EXPRESS DJ (INTÉRBANK □) 

Número de mi tarjeta 

TITULO ____ 


NOMBRE 
CALLE 
CIUDAD . 


D. P. 


PROVINCIA 


Firma 


I 

y 
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VAL (“BIN ”+ aS (n, S TO 8)). Este 
cambio de valores de los PÓKES 
que observaréis a lo largo del pro¬ 
grama hace que se tomen los ca¬ 
racteres de la ROM o de la RAM 
según nos interese para tener con 
toda claridad en pantalla la infor¬ 
mación necesaria en caso de que 
hubiésemos cambiado o transfor¬ 
mado algún número o letra por 
otra cosa. 

Línea 621: 

Estas variables tienen como mi¬ 
sión establecer unos topes al movi¬ 
miento del cursor por la pantalla, 
puesto que utilizamos siempre la 
misma subrutina. En la pantalla 
principal el cursor se mueve a todo 
lo largo de la pantalla y aquí solo 
en un pequeño cuadrado. Los va¬ 


lores wl w2 w3 y w4 son alterados 
para este fin. 

Línea 650 a 658: 

Movimiento del cursor. Pensado 
para hacerlo con los cursores y no 
con los números, puesto que en 
principio es más cómodo para los 
poseedores del PLUS. Al final ex¬ 
plicaremos los cambios que se 
pueden hacer. 

Línea 665: 

Cuando pulsamos la coma ocu¬ 
rren varias cosas. Dibujamos un 
punto en la posición superior dere¬ 
cha de la rejilla que es una repro¬ 
ducción exacta de cómo quedará 
nuestro diseño. Dibujamos un cua¬ 
drado blanco en la rejilla o panel 
de trabajo. Saltamos a la subrutina 
700 que cambia el estado de una 


de las variables de la matriz a$. Si 
es cero la pone a uno y viceversa. 
Línea 680: 

Si pulsamos la B borramos la re¬ 
jilla y la matriz a$ saltando a la li¬ 
nea 309 que forma parte de la su¬ 
brutina que dibuja la pantalla 
principal. Siempre que queramos 
podemos saltar a la parte de una 
determinada subrutina que nos in¬ 
terese. 

Línea 685: 

Esta línea actualiza en todo mo¬ 
mento en valor en decimal de cada 
línea del carácter a crear. 

Línea 1001: 

Programa principal. Definimos 
nuevas variables. 

Línea 1003: 

Siempre que veamos esta expre- 


805 PRINT BRIGHT 1; OVER 1 5 AT 
x,y;"*": LET x=x-l: PRINT BRIGH 
T 1; OVER 1; AT RETURN 

810 IF x>=w2 THEN RETURN 
815 PRINT BRIGHT 1; OVER 1;AT 
x,y;” : LET x=x+l: PRINT BRIGH 

T 1; 0VER HAT x ,y: "I'i RETURN 
820 IF y>=w3 THEN RETURN 
825 PRINT BRIGHT 1; DVER 1 1 AT 
>:, y; " ■" : LET y=y+l¡ PRINT BRIGH 
T 1; OVER 1;AT x , y; " ■" : RETURN 
830 IF y<=w4 THEN RETURN 
835 PRINT BRIGHT 1 ; OVER 1 ; AT 
x , y; " ■" ; LET y=y-l: PRINT BRIGH 
T 1; OVER 1 ; AT x,y;"« n : RETURN 

1000 REM Elección de carácter 

1001 POKE 23606,0: POKE 23607,60 
: LET in-Ot LET es=0: LET g*i 

1002 PRINT AT 15,20;"Iopresora "; 
AT 16,20;"1 ESPEJO";AT 17,20;"2 
INVERTIR";AT 18,20;"3 INVERSO";A 
T 14,20;"Run";AT 20,O;"pósiclona 
r:di bujarseditar:borra leer:10a 
d: Graba:reponer¡Salir"! POKE 23 
606,88: POKE 23607,251 

1003 LET e$=INKEY$ 

1004 IF e$= H 3" THEN BEEP .01,29 
: GO SUB 1150 

1005 PRINT OVER 1; AT x2,y2; l 'W 

1006 IF THEN LET di*ls L 

ET c*=CHR$ wl: BEEP .01,29; GO S 


UB 1160: GO SUB 309: GO SUB 1200 
: GO SUB 327: GO SUB 1300: BEEP 
.5,20: GO SUB 1160: PRINT AT x2, 
y2; OVER 1;" H" 

1007 IF eí^'T' THEN LET di = l: L 
ET c*=CHR$ wl: BEEP .01,29: GO S 
UB 1170: GO SUB 309: 60 SUB 1200 
: GO SUB 327; GO SUB 1300: BEEP 
.5,20: GO SUB 1170: PRINT AT x2, 
y 2 ; OVER l;"*’ 

1008 IF e$= ,, R 1 ’ THEN RUN 

1009 IF e*= M r" THEN GO TO 53 

1010 IF e$="p" THEN PRINT OVER 
1; AT x2, y2; **■" : GO TO 2000 

1013 IF e$=CMR$ 8 THEN GO SUB 1 
075 

1015 IF e$=CHR* 9 THEN GÜ SUB 1 
085 

1020 IF e$-CHR* 11 THEN GO SUB 
1095 

1023 IF e*=CHR$ 10 THEN GO SUB 
1105 

1024 IF eí= ,, S , ‘ THEN CLS : POKE 
23606,0; POKE 23607,60: PRINT AT 

11,1;"EDI5ET GOTO 53 Continua 


r 



RUN 

Empezar" 

: STOP 




1025 

IF 

e$= ,l G" 

THEN 

GO SUB 1400 

1026 

IF 

e$~" 0 " 

THEN 

GO SUB 1500 

1027 

IF 

e$=" 1 " 

THEN 

LET di=l: P 

RINT 

AT 

S, 12 ; " 

GO 

SUB 309; GO 


fíl 













El corcho 


sióti (LET eS=INKEY$) converti¬ 
mos la variable e$. u otra cualquie¬ 
ra, en la misma función que de¬ 
sempeña INKEYS: leer el teclado 
y comprobar si hay alguna teda 
pulsada. 

Línea 1004: 

Al pulsar la tecla 3 el programa 
salta a la subrutina 1150 que es la 
encargada de invertir tinta por pa¬ 
pel y viceversa. 

Linea 1005: 

Esta línea, junto con la 1030, 
hace que el cursor parpadee e im¬ 
pide que borre la pantalla por don¬ 
de pasa. 

Línea 1006: 

Al pulsar el 2 el programa salta a 
una serie de subrutinas y tenemos 


como resultado el carácter elegido 
pero boca abajo. 

Línea 1007: 

AI pulsar el 1 tenemos la imagen 
espejo del carácter elegido. 

Línea 1008: 

Pulsamos la R mayúscula y ha¬ 
cemos un RUN lo cual empeza¬ 
mos de nuevo borrando todo lo 
que hay en la RAM. Sólo perma¬ 
necen inalterables los UGD. 

Línea 1009: 

Al pulsar la «r» minúscula salta¬ 
mos a la línea 53, dibujando de 
nuevo la pantalla principal y de¬ 
volviendo el cursor a la parte supe¬ 
rior izquierda. La utilidad de esta 
instrucción, aparentemente inútil, 
está pensada para el caso siguiente: 
Imaginemos que editamos en el lu- 


SUB l 200s 50 SUB 327 í BEEP .1.4 
5: LET c$=CHR$ wl 

1028 IF eí="b" THEN PRINT AT 8, 
12;” LET di = l: LET c$=" GD 

SUB 309 

1029 IF e4= M e" THEN GO SUB 1300 
: GO TO 1003 

1030 PRINT OVER 1; AT x2,y2g"V 

1031 LET w=INT (1+y2)/2); LET 
wl-w+32 

1032 IF g~l THEN PRINT BRIGHT 
1;AT 9,20;CHR$ wl 

1033 IF e$="d" THEN 50 TO 600 

1034 IF g=0 THEN PRINT BRIGHT 
1; INVERSE 1;AT 9,20;CHR$ wl 

1035 IF k 2<=5 THEN LET xl=x2*32 

1036 IF x 2>5 THEN LET xl=32+(x2 
*32) 

1045 IF e$=»"i " THEN LET di = l: P 
RINT AT 8,12;" ": GO SUB 309; GO 
SUB 1200: 50 SUB 327: LET c*=CH 
R$ wl: POKE 23606,0: POKE 23607, 





I E\DD kf j. i/h t í/ui compit'iu ¡fe 
Ííí reviva ■■t '.f fini'efíucler FwuMíj¿<- 
rf mime™ .W tth h¿\m: en pvr- 
lt\!n esfudíf {fe xm\frrvwá'tn. Prvt iu 
•i 5t)Opiü\ .tunh Saks, i' Püiir? f • 
ni. >lt) 7W: 253 ii$ 14 RÁRCf- 
f.OS.t 


Compro impresora de M mi urianas 
co necíable al Spectrum. Además, estoy 
interesado en formar un club úv usua¬ 
rios del Sjitfctrijm a niveJ nacional. Es¬ 
cribir A; Mario Saetí/ íle Santamaría: 
O Rio libro* n* 2? - 1* C. Míranda de 
libro (Burgos). 


vendo zx micro- 

I>RI VE CON SI CO- 
R RES PON DIENTE ÍN- 
TERFACE i, UN CAR¬ 
TUCHO V IJN MA- 
MAL TODO COM¬ 
PLETAMENTE NUE¬ 
VO V POR m<HI0 PTS. 
INTERESADOS ES¬ 
CRIBIR A: JAVIER 
ITLRRÍAGA. SíER- 
VAS DE JESUS, 2?, 
HARO (LA RIOJA). 


El Spectrum w me quedó 
pequeño. El Olivetti M-2W 
también. Vendo este último a 
buen precio y con abundante 
software. Llamar al teléfono 
239 4? 7b de Madrid, a par¬ 
tir de la* 22 h. 


A LOS SPECTRG- 
MANOS DE ESPA¬ 
ÑA, DE LOS COLE¬ 
GAS DE URUGUAY. 
DONDE NO SE 
CONSIGUE NADA 
DE SOFTWARE 
PARA LA S REC¬ 
TA UM, LES ROGA¬ 
MOS NOS ENVIEN 
LISTADOS DE PRO¬ 
GRAMAS QUE YA 
NO NECESITEN 
(RECORTES, IM¬ 
PRESOS. ETC.). DI¬ 
RIGIRSE A ISAIAS 
FERNANDEZ, BU- 
XAREO 1295 AP, 9(12 
MONTEVIDEO 
URUGUAY. 


CAMBIAMOS programas 
y libro «THE COMPLET 
SPECTRUM ROM D1SAS- 
SEMBLYw de ían Logan por 
otros programas o libros. In¬ 
teresados escribir o llamar a: 
JORDÍ SERRA LOPEZ. Pa¬ 
seo del Triunfo, 30, 6 * 2 ?. 
08005 BARCELONA. 


Su uífuiH'Hh punir ir aquí, BrríluiiM a «El 

(tmrlwio. TODOSPECTBUM- Rt*w Man¬ 
ilo. 377,5.' A. 184120 Madrid, 
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gar destinado al SPACE un dibujo 
cualquiera. Cuando salgamos de la 
pantalla principal y entremos en 
ella otra vez observaremos que to¬ 
dos los espacios son rellenados con 
nuestro dibujo, lo cual produce un 
molesto visionado de la pantalla. 
Si lo hemos hecho «aposta», nos 
tendremos que aguantar con las 
consecuencias pero si ha sido un 
error podemos editar un «vacío» 
de nuevo y apretando la «o> todo 
volverá a la normalidad. Haced el 
experimento. 


Línea 1010: 

Pulsamos la «P» y saltamos a un 
subprograma cuya única misión es 
la de poder editar en pantalla tos 
resultados finales dibujando en 
ella a nuestro antojo y por medio 
de un cursor todo lo que hubiése¬ 
mos creado. 

Línea 1024: 

Pulsamos la «s» mayúscula y sa¬ 
limos del programa. 

Línea 1025: 

Pulsando la «g» mayúscula pa¬ 
samos a la subrutina de grabación. 


Línea 1026: 

Pulsando la «o» mayúscula pa¬ 
samos a la subrutina de carga de 
un set almacenado con anteriori¬ 
dad en cinta. 

Línea 1027: 

Pulsando la «l» pasamos a la re¬ 
jilla el carácter elegido con e! cur¬ 
sor. Este carácter podrá ser modifi¬ 
cado y editado de nuevo en la mis¬ 
ma u otra posición. 

Línea 1028: 

Pulsando la «b» borramos la re¬ 
jilla. 




60s GÜ SUB 1600; F'ÜKE 23606,88: 
POKE 23607,251 
1070 60 TO 1003 
1075 IF y2<~0 THEN RETURN 
1080 PR1NT AT x2,y2; OVER 1 $ “MV' s 
LET y2=y2-2: PRINT OVER 1 j AT >¡ 
2, y2;" M" : RETURN 

1085 IF y2>=30 THEN RETURN 

1086 IF y2>=7 AND x2=7 THEN RET 
URN 

1090 PRINT AT x2,y2; DVER 1 ;"W: 

LET y2=y2+2: PRINT ÜVER 1;AT x 
2, y2; “1" : RETURN 
1095 IF x2< =0 THEN RETURN 
1100 PRINT AT x2,y2; OVER 1 ; " V i 
LET x2=x2-l: PRINT OVER 1sAT x 
2, y2;" M" : RETURN 

1105 IF x2>=7 THEN RETURN 

1106 IF x2>=6 AND y2>=9 THEN RE 
TURN 

1110 PRINT AT x2,y2; OVER 1:"BTí 
LET :<2=x2+l: PRINT OVER 1; AT x 
2,y2;" ■": RETURN 

1150 !F g~0 THEN LET g=l: PRINT 
OVER 1;AT IB, 20;" " : R 

ETURN 

1152 IF g= 1 THEN LET g=0: PRINT 
PAPER 2; OVER 1; BRI6HT 1;AT 1 
B, 20; 11 RETURN 

1160 IF in=0 THEN LET in=l: PRI 
NT PAPER 2; OVER 1; BRIGHT 1;AT 
17,20;" RETURN 

1162 IF in=1 THEN LET in=0: PRI 
NT OVER 1;AT 17,20;" 

: RETURN 

1170 IF es=0 THEN LET es=l: PRI 


NT PAPER 2; OVER 1; BRIGHT 1;AT 
16,20;" 11 3 RETURN 

1172 IF es=l THEN LET es=0: PRI 
NT OVER 1;AT 16,20;” u s 

RETURN 

1200 REM Dibuja carac en reja 

1205 LET a1=10: LET bl=2 

1208 IF in=0 THEN FOR ro=103 TO 

95 STEP -1: LET bl=2 

1210 IF in =1 THEN FOR m=96 TO 1 

05: LET bl=2 

1213 IF es=l THEN FOR n=167 TO 
159 STEP -1 

1214 IF es=0 THEN FOR n=160 TO 
163 

1215 IF POINT ín,m)=1 THEN PRIN 
T BRIGHT 1; OVER 1; AT al,bl;"W 
: LET aí<al-9,b1-1)=STRi 1 

1220 LET bl=bi+i 

1250 NEXT n: LET al=al+ls NEXT m 
: RETURN 

1300 REM EDITAR 

1315 FOR n =1 TO S: LET bi=ai(n,l 
)+ai(n, 2 > <n,3)+aiCn,4)+ai<n,5 

) +ai Cn,é>-+ai(n,7) +a$ (n , B) 

1317 IF wK 144 THEN POKE s+<w *8 
> +n— 1, VAL < "BIN '‘+bi) : NEXT n 
1319 IF wl>=144 THEN POKE USR " 
a"+ < <w-l12>* 8 > +n-l,VAL (”BIN "+b 
i): NEXT n 

i322 PRINT AT x2,y2;CHRÍ wl 
1325 BEEP .1,35: RETURN 
1400 REM grabar en casette 
1405 POKE 23606,0: POKE 23607,60 
1410 CLS : PRINT AT 3,10;"SAVE"; 
AT 5, 10;"1 SET";AT 7,10;”2 UGD 


6 : 

















SUSCRIBASE 
POR TELEFONO 

* más fácil, 

* más cómodo, 

* más rápido 


\ 




Telf. (91) 7337969 

7 días por semana, 24 horas a su servicio 


SUSCRIBASE A 


lodospectrun 

_ J 



A UN PRECIO ESPECIAL 


OFERTA LIMITADA 
Y EXCLUSIVA PARA 
NUESTROS LECTORES 


Aproveche la oportunidad de mantener 
como nuevo su Spectrum Plus 
con esta funda, y beneficíese 
de un 30% de descuento 
sobre su precio normal. 
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" j AT 9,10;"3 Ambos" 

1412 INPUT "Nombre íichera:"¡c$: 

IF c*="" 0R LEN c$> 10 THEN GO 
TO 1412 

1414 PRINT : PRINT TAB 5 ;"Pulsa 
una apelan"! PRINT ; PRINT "Para 

utilizar el nuevo set en tuprog 
rama incluye estos PÜKES;"'” j PR 
INT "PGKE 23606,88 y POKE 23607, 
25r ,,, s PRINT "y CLEAR 64599 en 
opciones 1 y 3" 

1415 LET e$=INKEY$ 

1417 IF e$=" 1 " THEN CLS s PRINT 
"Opción I SET"’’s PRINT "Direc 
cíon de memoria 64500" 7r "Longitu 
d 768": SAVE c$CQDE s,768: GO SU 
B 1450s GO TO 53 

1419 IF e$~"2" THEN CLS s PRINT 
"Opción 2 UDG ” 5 ” : PRINT "Direc 

cion de memoria USR " "a" " " 11 ' "Lon 
gitud 168": SAVE cíCODE USR "a", 
168: GO SUB 1450: GO TO 53 

1420 IF e*="3" THEN CLS : PRINT 
"Opción 3 SET y UDG 11 ' ? : PRINT 

"Dirección de memoria 64500" ”"L 
ongitud 936": SAVE cíCODE s.936: 

GO SUB 1450: GO TO 53 
1430 GO TO 1415 

1450 CLS s PRINT AT 19,0;"O.K. " 
;cí;AT 21,0; "Quieres verificar? 
<S/N>" 

1452 IF INKEY*-"*" THEN CLS : P 
RINT INK 2; PAPER 7;AT 11,0;"GO 
TO 53 en caso de error o BREAK": 

VERIFY ""CODE s CLS : PRINT AT 
21,O;c$;" verificado": BEEP ,1,4 
O: PAUSE 100: RETURN 
1455 IF INKEY$—"n" THEN RETURN 
1457 GO TO 1452 
1500 REM Cargar set de cinta 
1505 POKE 23606,0: POKE 23607,60 

1513 CLS : PRINT AT 3,10;"LOAD"; 
AT 5,10 ;"1 SET";AT 7,10;"2 UGD 
";AT 9,10;"3 Ambos" 

1514 INPUT "Nombre fichero:";c$: 
PRINT AT 21,0;"Pulsa una opcion 

ii 

1515 LET e*-INKEY* 

1520 IF e$="l" THEN LOAD ctCODE 
: GO TO 53 

1525 IF e'í~ ,, 2" THEN LOAD c$C0D£ 


USR "a": GO TO 53 
1530 IF e$="3" THEN LOAD cíCODE 
: GO TO 53 
1535 GO TO 1515 

1600 IF wl>=144 THEN LPRINT IN 
VERSE 1;CHR* Cwl“79); INVERSE O; 
" ";CHR* wl;" »; 

1605 IF wl <144 THEN LPRINT CHR* 
wl;" POKE 23606,88: POKE 23 

607,251: LPRINT CHR$ wl;" ";: PO 
KE 23606,0: POKE 23607,60 
1610 FOR n =1 TO 8 : LPRINT VAL <" 
BIN "+a$<n,l TO 8 ));",";: NEXT n 
: LPRINT RETURN 

2000 BRIGHT 1 : PAPER 6 : BORDER 7 
: INK O: CLS : LET di«O: LET gr = 
O: LET x = 10: LET y=2: LET wl=0: 
LET w2=18: LET w3=ll¡ LET w4=0: 

. S 


2 O 1. P O PE 236 O 6,0: P O K E 23607,60 
200.7 c,t Copy"; AT 

20 ¿ O f " or'&CF. L cr ““ ür - '•~ rr z m ~- - 

r a-fice*!: EL £ Tl " . ■~ l ^ 

ocio E 

2004 PF.ZHT r i t > * n 

i' t! tt, m ir 

j * [ f- 

2003 sc-THT »►}••• .i, ¿i 2 . i Tr " i 2345 
^■79°r v 4. . 13r "BCDEFGHIJ 

KL M !'- ,r -7“ At f , 13: "STUVWXYZ i r3¿"'_ 
#sbc": £T 8,13;"defghijk1mnopqrst 


tei.OO-nc n=lTO 8: LPRINT VAL ("SI 
N "*a*(n.lTO 8 )NEXT n : LPR 
INT ? =■ : RETURN 

2000 BRIGHT 1: PAPER 6: BORDER 7 
: INK O: CLS ; LET dí=ü: LET gr= 
O: LET x = 10: LET y=2: LET wl=Ü: 
LET w2=18: LET w3=l1: LET w4=0: 
CLS 

2001 POKE 23606,0: POKE 23607,60 

2002 PRINT AT 19,21;"AT Copy";AT 

20,O;"SPACE barrar ENTER g 

raficasDELETE volver EDIT m 

odo E " 

2004 PRINT INK 4;AT 0,13;" }";" 

" " "; IIA *Xít' O#*-,-. /O" 

2005 PRINT INK 4;AT 2,13;"12345 
6789:;<=>?@A";AT 4,13;"BCDEFGHIJ 
KLMNGPQR" ; AT 6, 13; "STLJVWXYZ i ñ¿-*_ 
4abe";AT 8,13;"defghijklmnopqrst 
"j AT 10,13;"uvwxyj ' fD ABCDE";A 












Línea 1029: Línea 1031: donde deberá ser almacenada. 

Pulsando la «e» pasamos lo que Se definen unas variables reía- Línea 1033: 
hay en la rejilla a la posición del donadas con la posición del cursor Pulsando la «d» saltamos a la 
cursor. y la posición de memoria RAM subrutina de dibujar en rejilla. 


T 12,13;"FGHIJKLMNÜPQRSTU" 

2006 F’OKE 23606,88: POKE 23607,2 
51 

2007 PRINT INK 1; BRIGHT 1; AT 1 

í 13 5 " ! "; .; "*%•/.&’ <) * + /O" 

2008 PRINT INK 1; BRIGHT 1;AT 3 
,13;"123456789:;-0>?@A";AT 5,13; 

"BCDEFGHIJKLMNOPGR" ; AT 7,13; "STLf 
VWXYZ i M¿/'_#abc" ; AT 9, 13; "defghij 
kImnopqrst";AT 11,13;"uvwxyz 'JO*'* 

RBCDE"; AT 13, 13; " FGH IJKLHN O 
PORSTU" 


2009 POKE 23606,88: PQKE 23607,2 
51: PRINT OVER 1; BRIGHT 1; AT x 

^ y. II 

2010 LET e*«INKEY* 

2011 IF e$="ftT " THEN COPY s GO 


TÜ 2010 

2013 IF e$=CHR* 
30: GO TO 2010 
2015 IF e*~CHR$ 
20: GO TO 2010 
2020 IF e$=CHR$ 
800: GO TO 2010 
2023 IF e$=CHR$ 
810: GO TO 2010 
2025 IF e$=CHR$ 


8 

THEN 

GO SUB 8 

9 

THEN 

60 SUB 8 

11 

THEN 

GO SUB 

10 

THEN 

GO SUB 

13 

THEN 

BEÉP .0 


5,30: PRINT AT 20,24; OVER 1;" NN 
MHM" ; AT x , y; BRIGHT 1;" ” ¡ GO 
SUB 2200: BEEP .1,35: GO TO 201 
O 


2027 IF <e$>CHR$ 117 DR e$<CHR$ 
97) AND gr=47 THEN GO TO 2010 
2030 IF e$< >"" THEN PRINT BRIG 
HT 1; INVERSE 1;AT x,y;CHR$ VAL 
"(CODE e$)+gr" 

2035 IF e*=CHR$ 12 THEN PAPER O 
: INK 7: BRIGHT Os BORDER O: CLS 
: GO TO 53 


2040 IF e*=CHR* 7 THEN PRINT O 
VER 1;AT 21,24;" MMMNMT: BEEP . 
,20: GO SUB 2300 
2100 GO TO 2010 


2200 IF gr=0 THEN 
INT AT 20,O;" 
21 , 0 ;" 


LET gr =47: 

II 


PR 

AT 


1 


"s RETURN 

2210 IF gr=47 THEN LET gr=0: PO 
KE 23606,0: POKE 23607,60: PRINT 
AT 20,0;"SPACE borrar";AT 21,0; 
"DELETE volver EDIT modo E" 

: POKE 23606,88: POKE 23607.251: 
RETURN 

2300 PRINT BRIGHT 1; AT x,y; ,, * n 

2310 PRINT AT 20,0;"' 

11 

2320 LET e$~INKEY$ 

2321 IF e$=CHR$ 8 THEN GO SUB 8 
30: GO TO 2320 

2322 IF e$=CHR* 9 THEN GO SUB 8 
20: GÜ TO 2320 

2323 IF e$=CHR$ 11 THEN GO SUB 
800: GO TO 2320 


2324 IF e*=CHR$ 10 THEN GO SUB 
810: GÜ TO 2320 


2325 

TF e í="y" 

THEN PRINT 

INVE 

RSE 1 

; BRIGHT 

1;AT x ,y;" i " 


2326 

IF e$= l, u" 

THEN PRINT 

INVE 

RSE 1 

; BRIGHT 

1 í AT h , y ; 


2327 

IF eí="a" 

THEN PRINT 

INVE 

RSE 1 

BRIGHT 

1; AT x, y; ,, ' v " 


2328 

IF eí="s" 

THEN PRINT 

INVE 

RSE 1 

; BRIGHT 

1 ; AT x , y; " Tí" 


2329 

IF e$="d" 

THEN PRINT 

INVE 

RSE 1 

; BRIGHT 

1; AT x , y;"fi" 


2330 

IF e$='*f" 

THEN PRINT 

INVE 

RSE 1 

; BRIGHT 

1;AT x , y;""" 


2331 

IF e$= "g" 

THEN PRINT 

INVE 

RSE í 

; BRIGHT 

1 ; AT x , y ;" >" 


2332 

IF e*=”p" 

THEN PRINT 

INVE 

RSE 1 

; BRIGHT 

1;AT x , y ; 


¿.o o-5 

IF e$=CHR* 7 THEN PRINT AT 


21,24; OVER 1; " HMMMBT : BEEF' . 1 
,35: POKE 23606,0: POKE 23607,60 
; PRINT AT 20,0; "SF’ACE borrar 
ENTER gráficos": POKE 23606,8 
8: PQKE 23607,251: RETURN 
2337 IF e$=CHR$ 12 THEN RETURN 
2340 GO TO 2320 

9999 SAVE "ediset" LINE 1: VERIF 
Y "" 


ü 











Vi 
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Línea 1045: 

Pulsando la «i» podemos pasar a 
impresora los valores en decimal 
del carácter elegido con el cursor. 
Línea 1075a 1110: 

Subrutinas de movimiento del 
cursor de la pantalla principal. 
Línea 1150 y 1152: 

Subrutina de inversión de papel 
por tinta v viceversa. 

Linea 1160 y 1162: 

Subrutina para invertir el carác¬ 
ter. 

Línea 1170 y 11 72: 

Subrutina para crear una ima¬ 
gen espejo del carácter elegido. 
Línea 1200 a 1250: 

Dibuja en la rejilla el carácter 
elegido escogiendo unos bucles u 
otros dependiendo de ciertas varia¬ 
bles elegidas de antemano en las 
subrutinas 1160 v 1170. 

Línea 1300 a 1325: 

Edita el carácter que hay en reji¬ 
lla llevándolo a la posición del 
cursor. 

Línea 1400 a 1457: 

Subrutina de grabación. 

Línea 1500 a 1535: 

Subrutina de carga del cassette a 
ordenador de cualquier set alma¬ 
cenado en cinta con anterioridad. 
Linea 2000 a 2340: 

Subrutina que permite un visio- 
nado en conjunto de todos los ca¬ 
racteres pudiéndolos posicionar 
juntos o por separado dentro de 
unos márgenes. 

Línea 9990: 

Graba y verifica el propio pro¬ 
grama. 

Hasta aquí la explicación un 
poco exhaustiva del programa. 
Pero antes de pasar a explicar 
cómo utilizarlos hay algunas cosas 
que se deben explicar. 

El programa está pensado para 
el PLUS en cuanto a manejo del 
teclado. Si tenéis el normal cam¬ 
biad todos los IF eS=C’HRS 11 a 8 
por IF eS=“(letra que queráis)" te¬ 
niendo en cuenta que el CHRS 11 
equivale al cursor arriba, el 10 
abajo, el 9 derecha y el 8 izquierda. 
También podéis cambiar en la li¬ 
nea 665 IF eS=“," por otra letra. 

El programa permite crear los 


21 gráficos definibles por el usua¬ 
rio (UDG) y además cambiar, mo¬ 
dificar y alterar todo el sel de ca¬ 
racteres, grabarlo en cinta para 
una utilización posterior y sacar 
por impresora algunos datos útiles. 

Para entenderlo mejor lo ideal 
será teclear el programa, grabarlo 
en cinta, verificarlo y hacer algu¬ 
nas pruebas. 

Una vez hecho esto le damos ai 
RUN y si todo es correcto aparece¬ 
rá la carátula y tendremos que es¬ 
perar aproximadamente 30 segun¬ 
dos. Al cabo de este tiempo, se di¬ 
bujará la pantalla principal y ya 
podemos empezar a trabajar. 

Para empezar podemos crear la 
letra «ñ». Llevamos el cursor hasta 
¡a «n» y pulsamos la «I» de leer. El 
menú, como podréis observar, se 
encuentra en la parte inferior de la 
pantalla. En la rejilla se dibujará, 
en grande, la letra «n». Ahora pul¬ 
sar la «d» y un cursor parpadeante 
aparecerá dentro de la rejilla desa¬ 
pareciendo al mismo tiempo el 
otro cursor y cambiando el menú 
en ia línea inferior. Tenéis unos 
números a la derecha de la rejilla 
que son el valor en decimal de 
cada fila del carácter elegido y ade¬ 
más una «n» encima de éstos. Lle¬ 
varen cursor hacia la derecha 2 es¬ 
pacios y pulsar la coma. Sonará un 
BEEP Y el número de la derecha 
habrá cambiado a 32. Correr otro 
espacio y pulsar de nuevo la coma. 
El número cambia a 48 y con otro 
espacio más será de 56. Si obser¬ 
váis encima de esta columna de 
números lo que antes era una «n» 
se ha convertido en «ñ». Pulsar la 
«v» para volver al menú principa!. 
Desaparecerá el cursor de la rejilla 
y aparecerá donde lo dejamos an¬ 
teriormente. Ahora podemos des¬ 
plazar este cursor donde nos inte¬ 
rese colocar la «ñ». Por ejemplo, a 
ia «N» que hay dos filas más abajo. 
Las dos últimas filas de letras 
mayúsculas corresponden a los 
UDG. Ahora pulsamos la «e». El 
cursor deja de parpadear por un 
momento y ya está. Tenemos una 
flamante «ñ» en el UDG«N». 
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Rogamos di rijan toda la 
correspondencia relacionada con 
suscripciones a: 

TODOSPECTRUM 
EDISA; TeL 4 1 5 97 13 
O López de Hoyos. 141 -5.'' 

28002 MADRID 

(Para todos los pagos reseñar 

solamenie TODOSPECTRUM! 

Para la compra de ejemplares 
atrasados diríjanse a la propia 
editorial 

TODOSPECTRUM 
C Bravo Murillo, 377-5.° A 
Tcl. 733 74 13-28020 MADRID 

Si deicas colaborar en TODOSPEC¬ 
TRUM remite tus artículos o progra¬ 
mas a Bravo Manilo 377. 5 ” A, 28020 
Madrid, Los programas deberán estar 
grabados en cassette y Jos artículos 
mecanografiados, 

A efectos de remuneración, se anali¬ 
za cada colaboración ai sla damente. es* 
i ud ¡ando su compl ej idad y cal idad- 
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La nueva impresora de SEIKOSHA SF-8O0, con un ordenador personal puede 
escribir 93 combinaciones de ietra diferentes, desde 9b caracteres por segundo 
a 2® con muy alta calidad de letra, además es gráfica en alta densidad, 

¿>u precio es de 39. 900 H con introductor a uto**Gtico hojm a hoja. 

Con un pequeño ordenador personal , un procesador de textos puede costar 
alrededor de cien mil pesetas. 

hf¿riese y comprender é por qué Las máquinas de escribir tienen detallados años, 

Wuestra calidad es ’SEIKÍJ 1 ; 
nuestros precios, únicos 
Si desea más información, 
consulte con nuestro distribuidor 
más cercana, llame o escriba a: 

DIRECCION CORERClALj 
A*. Biaaco ¡baftax, I14-116 
4 &B22 VALENCIA 
Tml i 9 6 > 37? 89 89 
Té J| &2?2» 

DIRECCION tÚflERC í AL EN CATALURA: * , 

C/ñunt anar , É*-2-4Pta r La* tndUitfoi ian 1 o» rt(D*»nd 4 d«t par* (ontxlfin VipQ 

$ 0 pp p BARCELONA pinltlo C»nIrpnl *1 . para, ftifo tipb 4 # {4fitKtAn t iuf rtn un ligara 

T*l.f33J 323 32 19 iíKr*»tntg. 

Eat* plÉ da p4gl n* h* aldv rta 1 litdo inltgra»nt* ton Ib nutv* : 



ES T 06 SON NUESTROS ROCELOS: 


MODELO 

VELDC 

□ 

i 

6 

COLURNAS 

TIPOS Ot 
LETRA 

P.Y P ñ 1 
ÍNTERFACE 
PARALELO 

áP- 6 * 

LA 

PEGUERA 

49 

(p» 

46 

2 

26 989 

gp-s** 

LA 

ECONOMICA 

S« 


99 

2 

4 7 9é* 

6 P- 6 S* 

LA 

STANDARD 

06 

• 

a*-|36 

10 

69 9«4 

BP-89# 

LA 

PERFECCION 

9S 

* 

Sé-137 

29 

99.38# 

RF - 7M 

LA 

DE COLOR 

Sé 

m 

8 #-lé& 

3 

O* ,98# 

SP-&2** 

LA 

GE OFICINA 

í» 

* 

136-27? 

1 é 

199 Sé* 

»F-&42* 

LA 

MAS RAPIDA 

*2# 

* 

136-272 

i a 

¿SS.Sé* 
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EL REGALO FIN DE 


LAUDE 


Ha sido un curso doro para el Homo Sapiens más pequeño 
de la casa. 


Y la Gvaatia bivestrómca- Exíjala a] comprarlo ya que 
le protege de cualquier anomalía o reparación. 


Levantarse ames que el sol. Acostarse muy tarde 
preparando los trabajos. Y durante el día, una jornada plena 
de esfuerzo físico y dedicación intelectual, 


Invierta en el futuro de su hijo. Préndele con un Spectrum 
Guien bien acaba el curso, bien empieza el siguiente. 


Ahora que el curso acaba, su hijo merece un premio y una SPECTRUM. EL ORDENADOR CLASICO 
gran ayuda; un Spectrum. 


El microordenador más. popular del mundo. Tres de cada 
cuatro que se compran son Spectmm 

Con la mayor cantidad de software disponible. Más de 
anco mil títulos juegos, programas de educación y 
utilidades... 


DSTRBUDGfi 

fJCLUS^D 


investronica 


Tomás Bielón. 60 Telt (9L) «7 32 |Q. T^les 2339099 3YCO E 23W5 Madrid 
Camp. SO. Telf. ¡93) 21L 26 5B-311 27 $4 38032 Barcelona 







